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ABSTRACT 


This thesis presents sections of the Canadian 
Standards Association Specification $16.1 - Steel 
Structures for Buildings - Limit States Design, in 
decision table format. Basic theory of decision tables 
is discussed. The decision table formulation renders 
the code requirement checking procedure into an individual 
module independent from the analysis and member selection 
procedures. 

A specification processing program, in inter- 
active mode and batch mode, is also presented. 

A scheme for recursive execution of a decision 
table within a cycle has been developed leading to the 
possible saving of overall data items and decision 
tables. 

A number of examples are solved to check the 


validity of the decision tables compiled. 
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CHAPTER I 
INTRODUCTION 


1.1° Objective 


The purpose of this thesis is to document and 
implement the 1974 Canadian Standard Association (CSA) 
Standard S16.1-Steel Structures for Buildings-Limit 
States Design, in the form of decision tables. The 
technique of decision logic tables, or simply “decision 
tables", appears to be the best means available at 
present for clear definition and presentation of design 
logic. 

It is hoped that this form of presentation 
will not only help to give a more precise and logical 
interpretation of the Standard but also facilitate an 
easier approach in implementing it for computer appli- 
cations. Implementation of CSA S16.1 in this thesis is 
accomplished through a general purpose decision table 
processing program listed in Appendix D and E, which 
results in ‘ie ability to check the adequacy of most 
types of members against all relevant provisions of the 


Standard (also referred to as a code or specification). 


1.2 The Design Process 


The design process can be considered as 


consisting of the following steps: 


(aza) notteioo2en brebnese ee Popas 
ie Ps, ") Si: fs i 

fbi 2ontb hiya x0t emusouiae, Tansee 

ail .29Tdes nore}oob to myer oA at -.apiest a 


notetoeb” viqmbe v0. ceatdes rtpot ales te ead 


yt) 
$5 aldeltsva. Sagat y2ed add Bh 98 vey 


moreso ‘ag Opt San See bas noratnttsh aslo 0 tn 


aes 2A -- 
b . & J ~ 
‘ ; eae ¥ i mat 


“Wolsednseenq to MIOT, iid Jans agar at. i. ) 
featgo! RAs rer ayy SOM 6 avée ot ged iy tino ton rw m7 
a6 aterthtass oats ‘ted brabass2 oda ate NOTE t919g%S “a F 
Flags 193uqmo3 Or st pnttasmatqm? ae f f 


‘at etasds ‘aids nit oP are “neo to notseonamotqnt 


“et $65 mi 
sided oratoab ‘Seog fenanap B _ pune badethamooo6 a 
Hotaw 62 bas a xebasgqa ft bodart me1porg oni eascorg | coh 
ey se to ~asuntie ons beds os ysithds edt ni attuesy rill, 


i a” 


+ oF oie 
oe Bo, 


ode Yo ine amavots the dentene evedmamn to 299 


“(a9i 38012995 yO" shoo 6 25. ah barat, oete) thatnans J 


(rg) Analysis 

( ii.) Member Selection 

Waly alos trad nts. Checks 10s pdilPin or checking all code 
provisions) 

As the complexity of the code provisions 
increases, the more desirable a logical format becomes. 
Design specifications are generally a complex system in 
which all pertinent combinations of design events and 
their associated requirements are presented. Presenta- 
tion of such logically complex systems in the traditional 
narrative format is difficult due to the necessity of 
sequential presentation of concepts and the limitations 
of language with respect to absolutely precise communi- 
cation. Since design specifications essentially control 
the quality and safety of a structure, it is important 
that their requirements be explicit and clearly presented 
in order to facilitate their use to the best. possible 
extent during the design process. 

The common present approach of producing 
structural design programs based on a particular set of 
specifications is very inefficient. Specifications are 
often subjected to revisions. A minor revision often 
leads. tovaumador modification of the: program. In many 
cases, those responsible for the actual design of a 
structure do not know and often have difficulty in 


locating a person who knows exactly what assumptions 
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and interpretations have been included in the program. 
Hence, developing and revising such programs becomes a 
very expensive and time consuming task. 

Most of the specifications and codes of 
different authorities at present are not readily adapt- 
able to computer application because they do not display 
the logic leading to a certain action as clearly as 
needed for computer application, and the requirements 
for the same action may be scattered throughout the 
text of the specification. The design process up to 
the end of step (ii) involves many considerations other 
than design constraints whereas step (iii) is entirely 
dependent on them. Therefore, a more logical approach 
is to regard the constraints checking as a separate 
module, independent from analysis and member selection, 
and then design the programs accordingly. In this way, 
any member selection programs can be used with programs 
of different code requirements. 

The decision table format of CSA-S16.1 
presented in this thesis could therefore, result in a 
reassessment of the form in which this code is presented 
and may ultimately result in an improvement to the 


specification. 
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CHAPTER II 
DECISION TABLE THEORY 


2.1 Introduction 

Tables are a familiar part of everyone's 
life. From mathematical tables to the milage tables on 
road maps. They provide us with an orderly presentation 
OF dia ta‘, 

Traditionally, flow charts and narratives 
have been used to structure the logic of a problem. 
These are effective as long as the problem is fairly 
Simple logically. When interaction among a large 
number of conditions exists, how can one be certain 
that every possible combination has been considered? 

Decision tables are simply a technique for 
recording "decision-making" processes. They have been 
used since the early 1950's. Unlike flow charts, which 
could be as simple or as detailed as the programmer 
desires, decision tables force one to be thorough and 
concise. When properly used, they demand that all 
combinations of conditions be considered and allow 
irrelevant tests to be deleted. In this chapter, the 
basic components and theory of decision tables are 
discussed. For a greater insight into the theory, the 
reader is referred to references: 25, 10, 14, 18, 20, 
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2.2 Basic Components 


A decision table is simply a tabular display 
of all elements of a segment of a problem. The table 
Shows all of the conditions affecting the problem and 
their interrelationship. It further indicates which 
action or actions are appropriate for each set of 
conditions. 

A decision table consists of sections, which 
are arranged as shown in Fig. 2.1%. The contents of 


these sections are discussed below. 


2.2.4 Jhe Condition, Stub 

This area contains all Fae conditions relevant 
to the particular segment of the problem. They must 
all be "logical" conditions, which can have only two 


DOSSTDIe Values: 9 "YES" or "NO": 


Leese INGWACL JON, St Lp 

This area contains all the possible actions 
that may be taken resulting from different combinations 
of conditions. The actions may be printing of messages, 


computations, or execution of other tables. 


2.2.8 she condition Entries 


The questions asked in the condition stub are 


answered here. This segment lists all the pertinent 


* All Figures are grouped together preceding the References. 
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combinations of the logical conditions in a column. 
Each column specifies a "rule". Responses to conditions 
ape Pesty \Cted to vy" ror ves, “N” for NO, and "1" ..for 


Immaterial. 


e.0°4. The Action Entries 

The elements of the action entries may either 
Devoyesor ebjanky. ."y¥" signifies«the corresponding 
action in the action stub is to be performed. A "blank" 
Signifies that the corresponding action is not to be 


taken. 


2.c.0 the Ingredients’ of Conditions and Actions 


These two areas list the ingredients of each 
condition and action, respectively. Ingredients are 


defined in Section 3.4. 


2-e.6, Rows and Rules of.a Decision Tabke 

Horizontal levels, called "rows", run across 
the entire table. The condition and action entry 
portions of the table are further subdivided into 


vertical columns called "rules". 


Decision tables of the type described above 
are called “limited entry tables" because the condition 
entries are considered to be limited to "Y", "N" or 
"blank" and the action entries are limited to "Y" and 


"blank". Other types of decision tables such as 
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"extended entry tables" and “mixed entry tables" (25, 
10, 14, 18, 20, 26), allow for a wider variety of 
condition and action entries but they are more complex 


to program. 


2.3 Size Of A Decision Table 

As explained in Sect. 2.2.1, each logical 
eondie10n has omy - two values (“Y" or "N™). It follows 
that for a table with one condition, there are two 

rules. Therefore, a table with n conditions has 2” 

rules. A table of this type is termed a “Complete Table". 

However, a "Complete Table" such as that illustrated in 

Fig. 2.2, rarely occur in practice, for the following 

reasons: 

(a) If the action for rule 2 and 3 is the same, the 
value of condition 2 for rule 2 and 3 becomes 
immaterial. The table transforms into the form 
illustrated in Fig. 2.3... The number of rules has 
been reduced to 3. 

Chis ehmedieG is iormshaibke X.1(1)* of Appendix B, the two 
conditions are mutually exclusive as discussed in 
Sect. 3.3. Therefore, there are only two valid 
combinations of the two conditions, namely, Y N 


and N Y, rather than 2¢ = 4 number of rules in a 


complete table. 
* Decision tables in Appendix B are arranged, as closely 


as possible, in order ofthe number which appears in 
brackets. 
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2.4 Conventions 

In this section, the notations and conventions 
used in the formulation of the decision tables presented 
in Appendix B are discussed. Signs and units of variables 


are the same as-those used in CSA-S16.1. 


2.4.1 Conditions | 
All the conditions in the condition stub are 
logical variables. There are two types of conditions: 
(19% Condttions which areMlogical data items, such as 
“SECTION DOUBLY SYMMETRIC?" 
(ii) Logical conditions which result from numerical 
calculations, such as "b/t < 420/v Fy 2" » Which 
has a value of "YES" or "NO" after the calculations 


for b/t and 420/V Ee are performed. 


@.43,2 ~ACtions 
Certain actions which are listed in the 

action stub, are performed according to specific combina- 
Hions of conditions in the condition stub. “There- are 
three types of actions: 
(7) An action which directs the execution or the 

program to another table. For example "Execute 

Table M". 
(ii) An action which outputs appropriate messages. 


For example, "STRENGTH CRITERION NOT SATISFIED". 
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(iid) An action which calculates numerical values of 


variables. For example 5 Me = o2F's 


2.4.3 Data Requirements 


There are in general two types of input data 
required to process a decision table. The first type 
is conventional numerical data, such as the value of 
yield stress Fy = 44 ksi. The second type is logical 
data, which can only have value of "YES" or "NO", such 
as, SIRUCTURAL* STEEL "MEMBER?™ 

The data items necessary for the processing 
of each table are listed preceding each decision table, 
as presented in Appendix B, in the format shown in 
Fig. 2.4. The first column identifies the data item. 
The second and third columns specify whether this data 
item has to be externally input or can be obtained from 


another table. 


2.5 An Introductory Example 


To demonstrate the use of a decision table, 
the Decision Table 13.4.A.1 (75) in Appendix B, for 
section 13.4 of CSA $16.1 Standard, which deals with 
the calculation of the factored shear resistance (tae 
will be used. In this example, assume the problem is 
to calculate tite factored shear resistance Lu of a beam 
which has been designed using plastic analysis. The 


values of the five conditions in the condition stub 
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that describe the problem are N Y Y NN. Scanning the 
condition entry part of the table, rule 4 satisfies the 
condition requirements, since conditions 4 and 5 of 
rule 4 are both "immaterial". Following rule 4 to the 
action entry part of the table, it is noted that there 
is a Y entry opposite action 4, which means action 4 in 
the action stub will be performed. It is a numerical 


calculation which gives a value of V. = 0. 55owd Fy. 
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CHAPTER III 
DATA ORGANIZATION 


This chapter discusses the nature, properties 
and sources of values of data elements. In a general 
processor program, the number of data values required 
becomes very large even for a small problem. Therefore, 
it is imperative to have a procedure which can handle 
large amounts of data efficiently. In other words, it 


largely becomes a data management problem (13, 19). 


ao Nature Of Data Elements 
There are in general, two types of data elements: 
(a) Data which have numerical values in the conventional 
sense. For example, the length of the steel 
member, 1. 
(b) Data which are logical in nature. They can only 
have Values of "YES" or emo’. For exampre, =1s.:the 


section double symmetric?". 


3.2 Sources and Presence of Data Elements 


There are four sources from which data values 


can be generated: 
(a) Data which are supplied by external input. They 


can either be logical or numerical. 


al 


as ee bea cos, 
eotraadarg stusen ‘eee v eeaa 190 neh? 


Tatenop snl seroma an er. 


th ,2bvoOw vedo mI ‘vino sh gy py 
(21 ET) matdorg insmapenem seb 6 29m 


fasse odt to Aionst ‘ol i catlaae oa alae Bi 


ty og PLA Poe ae ' Be 1 9dinga es 


oT 


ying 62) ved | ‘griieh ab meine a6 aotaw isd oie 


aay 21" brates 103 on" 40 "ee ‘Yo 2suf'ey ‘over Ly 


"So tydommye etduob noisoe2— 


r 
7 t 
j : = “y 1 ie fe } 
4 y ) ; S ~ 


ql 


zoulsv Bd6b tordw ieee e29n 102 wot 816 s1otT Aue aay ch 
| [684619090 ‘od 163, a 
vant “Saant Apnysixs ud bor taque o18. ‘dotdw 6360, On) ; 


-fs2i-vemun 10 (sotoot ad Astite N5D Pah be 


12 


(b) Data which are generated by actions performed in a 
decision table. Data generated in this manner can 
either be logical or numerical. 

(c) Data which are generated as a result of calculations 
performed on other data elements. For example, 
pay is oies a20// F ?. > This=type ot data element is 
always logical in nature. 

(d) Data to be input from the terminal using Subroutine 
READIN. This source is only applicable in inter- 
active mode operation which is discussed in Sect. 


Te. 


The sources of data discussed above are listed 
in the heirarchy sequence in which the program searches 
for data. During processing, when a particular data 
value is required, the program checks if it has been 
input externally. If not, it then turns to sources (b), 
(c) and (d) in that order. 

Lt... should. be, noted, that.not, ald,dthe actrions of, 
a decision table generate data elements. However, the 
values of all the data elements generated may be stored 
in a global array called DATA, together with the values 
of each data element from the condition and action 
stubs. The value of each data element may be retrieved 
from the array DATA by using its number address (i.e. 
subscript) in the array. This arrangement of global 
storage enables data to be retrieved easily at every 


stage during execution of the program. 


Es | Ly p ¥ . | \ ie nel ae 
1 
2 


5 Nt bomratveg = ita 


N59 197 Aba sl dg 


>iatlebueiah to, slay ‘ | o8 : ane dw J 
-sitgmexs 107 s2dnameys pore 920) 0. bam myoryag 
éf Jnamets Bi 6b yo sav endT og: 7 


os 2tudBD a taataot a 


ontsuovdue patey Isntmses ons mov? uae! sea 


F 


| | | ae ¥. a 
bsteri $16 svods bscevo2tb ed 6b to eariuge ott nr 
eBnon aes mx pavq ont dotdw. ve sonsupae vase fed ont 


i> 


$i Bb vers tiysq. re natn wpatezszoxq patra Ds 
a abi. me 


“wasd 26d tf Pt 2yatta msyporq oH Spon 
_e(d) 290502 oF ancrs Gant ti ‘ton We yi fon . 
a ‘; 5 abo tons nt. (b) ‘bn ‘a ee 
to enorsoe ans Iie ale dans hase, Be btuode H | ale 
| anid  TevaWoH .2dnemets atsb sts4snoe aides: notated 6 

‘dba ae ih baderonae. zinomets 6i 6b aris: [fs to vat faye 
Paisy sit dd tw vod3a003 .ATAG 'b8 1759 Vb176 NPonte 6 nt 
“WORIIS brs norstbnos aad mort Samara Bt5b ose ie 


bevetades ad Gata jnameto. 636b ike ho. ours oT -eduge 
aia ‘Si 7) 2297bbs. 196m aa t pif au Wd Arad po ons meee 
| Tadote: 0 Jnamapaeyts ert ee ae ats ni (sqroedue « 


i LY 


% 


pa wYSVS J6 WiteE, bavar4tsy sd. os sib eatdens apsroye. 


-manearg ait Y6 notauaaxs onivwb apste. ‘me, 


a ee a | _ "2 I oe 


Due to the multiple sources from which data 
elements can be generated, it becomes essential to know 
at any time during processing whether a particular data 
item has a value or not. This information is provided 
by an array PRD (Presence of Data), whose subscripts 
correspond to those of array DATA, and which contains 
logical, flags. .[RUE..ons;FALSE.j,.+;The;elements in array 
PRD are all initialized to .FALSE. at the beginning of 
execution of the program. Whenever the value of a data 
element becomes available during execution, the corres- 
ponding element in array PRD is set to .TRUE. .. The 
presence of a data element value can then be established 
at any time during processing by checking with array 


PRD. 


3:3.,.Table. Pointers and Mutually.Exclusive. Sets 


In order to obtain a value of a particular 
data element by the execution of an appropriate decision 
tablegvaccording,;ta the .data,source,of Sect.,3.2(b), the 
number of the table which must be executed is specified 
as a property of that data element. This table number 
is stored in an array TABD (Table for Data) with sub- 
scripts corresponding to those in the array DATA for 
each data element. A blank in TABD indicates that the 


data element cannot be retrieved by executing any decision 


table. 
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Some data elements have the property that 
their values ake mutually exclusive from one another, 
forming a mutually exclusive set. Data in a mutually 
exclusive set are always logical in nature. The impli- 
cation of a mutually exclusive set is the user need only 
supply the value of one item in the set. The other 
items in the same set will automatically be set to "NO". 
For example, in Decision Table 11.A (6) in Appendix B, 
the list of data required consists of the following: T- 
Section, I-Section, ]-Section, Rectangular Hollow Section 
and Box Section. These five data items form a mutually 
exclusive set since only one can have a value of .TRUE. 
at any given time. The number of a mutually exclusive 
set to which a data element belongs is stored in an 
array ISET. The property of mutually exclusive sets 
discussed above reduces the number of externally input 
data considerably. | 

The subscript (or address) of a data item in 
the array DATA also serves to retrieve the values in 
arrays PRD, TABD, and ISET which are applicable to this 
data item. The interrelationship of these four global 


arrays is as Triustrated inf Fig. 3.1% 


3.4 Ingredients and Dependents of Data Elements 


As indicated in Sect. 3.2(b,c), there are two 


ways in which data elements can be generated by involving 
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other data elements. When a value of a data element is 
evaluated as a function of other data elements, the 
latter are called "ingredients" of the former. Thus, a 
data element X which may be evaluated as X = F(u,, Un» 
Ug ves un)> has data elements Uj» Ups, Ug «+. UD as its 
ingredients. For example, the logical data element 
ib7/ it>> 420/¥ Fy 2" has ingredients b, t, and Fy 

There are instances when the value of one data 
element may be generated by more than one function, each 
having a different set of ingredients. For example, the 
data element Ney in Decision Table 13.6.A.2 (50) in 
Appendix B, may be generated by three different actions 
which have different ingredients. Since ingredience is 
a property of the data element, it is only necessary to 
associate ingredients with the conditions and actions of 
decision tables where the ingredients are actually used. 
The dependent list of each data element is generated 
internally. Thus, ingredients are associated with rows 
of a decision table. 

The concept of dependence follows directly 
from that of ingredients. If X has Y as its ingredient, 
then X is a dependent of Y. In the above example the 
logical data element "b/t > 420V Fy 2" is a dependent of 
b, t and F. because if any of these change in value, the 
logical data element may also change in value. The 


internal procedure of generating dependents imposed by 
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ingredients consists of a loop for the data element 
which involves a search to see if the data element has 
any ingredients. If yes, it is placed in the lists of 
dependents of all the ingredients, unless it is already 
there. This procedure is illustrated by the flow chart 
THA Fes BF 2% 

Dependence of data elements can also be imposed 
by the logic of decision tables. Actions performed in 
the action stub due to a particular combination of 
conditions are dependents of those conditions, as illu- 
strated in Fig. 3.3, where data elements produced by 
action B are dependents of conditions A and B. Dependents 
generated by the logic of decision tables are entered 
into the lists of dependents of the relevant conditions 
in the. condition stub by a loop in Subroutine SETUP, as 
flow charted in Fig. 3.4. It should be noted that 
dependency is a function of the ingredients and the 
decision logic of the immediate decision table. Depen- 
dency beyond this level need not be explicitly established 
as a data property but is determined at execution time, 
when necessary for clearing purposes, by the processing 


program. This procedure is discussed in Sect. 7.4. 
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CHAPTER IV 
PROCESSING OF DECISION TABLES 


4.1 Concepts 


The. approach taken to process the decision 
tables in Appendix B is to express each decision table 
as part of the global data, and execute all the tables 
by a single program. The procedure for processing a 
complete set of interrelated tables consists of the 
sequential processing of single tables in the order 
required by the problem, and checking the availability 
of data for each of these tables. If a data element is 
not available, execution of that table is suspended 
while the data element is being retrieved according to 
the heirarchy of data sources discussed in Sect. 3.2. 
This gives rise to the concept of conditional and direct 
execution which is discussed in Sect. 4.2 and 4.3. 

In this section, the method of processing a 
decision table is introduced. The procedure is flow 
charted in Fig. 4.1. The data values required are 
assumed to be all available. The program starts by 
checking to see if the data values of the conditions 
match the condition entries of the first rule of the 
table. Matching is skipped if the condition entry is 
immaterial. Each rule is tested in turn until a match 


is found between the data values of the conditions and 
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all condition entries for a rule. The relevant actions 
in the action stub of the matched rule will then be 
performed. If no rule is found to match the given 
conditions, the program will take an error exit route 
and gives a message to that effect. 

In general, not all the data elements need be 
externally input. If a data value is missing, be it a 
condition or an action, it can be obtained by the 


procedure described in Sect. 4.2. 


4.2 Conditional Execution 

There are three situations which will lead to 

the suspension of execution of a table: 

(a) The value of a condition is missing 

(b) The ingredients of a condition are missing 
(c) The ingredients of an action are missing. 

In as the above cases, if a table address 
is given in the array TABD (Fig. 3.1) for the missing 
data element, the execution of that table will commence 
immediately while the current table is suspended. The 
reason of suspension (a, b or c above), the current rule 
number, the current condition or action number and the 
current ingredient number of the suspended table are 
stored for re-execution. Once the missing data has been 


obtained, control is returned to the suspended table. 
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If a table address is not given in the array 
TABD for the missing data element, then the program 
checks to see if it has ingredients. If the missing 
data element has ingredients (and they are all present), 
a "condition subroutine" or "action subroutine" is 
called to evaluate the element. These subroutines are 
discussed in Sect. 5.4. If the data element does not 
have an entry in TABD and also has no ingredients, 
execution is terminated if in batch mode. In inter- 
active mode, the subroutine READIN is called as discussed 


in: S ect.u r74.i20 


4.3 Direct Execution 

The command for direct execution is "Execute 
Table X". This is an action specified in the action 
stub and is referenced by a different code in the action 
entries. Once execution of Table X is completed, control 
is returned to the next action of the original table. 
Unlike conditional execution, direct execution may only 
occur as a result of an instruction in the action entry 


of a rule. 
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’ CHAPTER V 
IMPLEMENTATION OF DECISION TABLE PROCESSOR 


The decision table processing program used 

herein was originally developed by Goel (12) in FORTRAN IV 

with batch-mode only input facility. The source program 

listed in Appendix E is similar to the original program 
but with numerous modifications implemented by the 

writer. In order to increase the capability of the 

processor, an interactive-mode of input and execution, 

and a recursive execution scheme have been introduced 

which are discussed in Chapter VII. 

For specification checking, the program requires 
two types of data input: 

(a) Decision table information which is independent from 
any other data characteristics. Therefore, decision 
tables only need to be processed once and stored 
permanently unless alterations are made to the 
tablese= Thesstorage or (nis type of -input” Vs 
discussed in Sect. 5.2, and the input procedure is 
discussed in Appendix C. 

(b) Problem orientated data values which are not part of 
permanent data. For example, "The depth of section 


d" or "The loadings on the member", as discussed in 


Secuse svc. 
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As discussed in Chapter III, data elements are 
stored in global arrays (Fig. 3.1). Therefore each data 
element can be easily retrieved by its array subscript. 
For example, DATA (95). However, it is often more 
convenient and meaningful to identify a data element with 
a name. This can be achieved by using the FORTRAN 
EQUIVALENCE STATEMENT. For example, “EQUIVALENCE (DATA 
(95), $CLAS1)". In this case, data element 95 in array 
DATA is a logical element $CLAS1= "IS SECTION A CLASS 1 
SECTION?". Throughout this thesis, logical data elements 


are identified by the prefex character "$". 


5.1 Computer Coding of Decision Tables 


The basic components of a decision table have 
been discussed-in,Sect.+2.2e,;1n,this,section, theycoding 
of each section of a decision table in a form suitable 
for input to the computer is described. 

(a) The condition stub contains logical data elements 
whose values are stored in the global array DATA. 
This area contains the addresses (i.e. subscripts) 
of the conditions in the array DATA. 

(b) The action stub contains both numerical and logical 
data elements. Three types of actions may be 
performed: 

(i) Calculation to obtain the value of a data 


element by an action subroutine. The action 
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stub contains the address of the data element 
in array DATA in this case. 
(ii) Direct execution of a table. The action stub 


contains the table number in this case. 


(73:0) Output of messages by an action subroutine. 


The action stub contains a "blank" for this 

type of action. 
The condition entry portion of the table has three 
rypes Of entries: Wheyvare lY¥". N* cand “FY... A 
"zero" or a "blank" signifies an immaterial entry. 
Pot ana er -STGW1t Tes a YES and NO entry respect- 
ively. 
The coding in the action entry portion of the tables 
signifies which type of action discussed in (b) is 
to be performed. The following coding is used: 
A "blank" signifies that no action is to be taken. 
A "1" signifies that the action is to be performed 
by an action subroutine (Sect. 5.4). The action may 
be calculating a data element or printing out of 
messages. 
A "2" indicates direct execution of another table. 
The ingredient list for a condition contains the 
addresses in array DATA of the ingredients. The 
maximum number of ingredients per condition which 
the program can handle is eleven. 


The ingredient list for actions is similar to that 


for conditions. 
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5.2 Storage Arrays for Decision Tables 


Economy in primary storage and efficient access 
to it are of particular importance in a program which 
handles large volumes of data information (13, E93 a: 
order to conserve storage, the size of each decision 
table is defined at the time of input. The size of a 
table is defined by the number of rules, the number of 
actions, and the number of conditions. Each of these 
parameters is stored in the single subscripted arrays L, 
M, and N respectively. The contents of each decision 
table are read initially into temporary arrays and then 
compacted into the permanent one-dimensional arrays 
LARRY] to LARRY6, as shown schematically in Fig. 5.1. 

There is a pointer array assigned to each per- 
manent array for the purpose of locating data elements 
efficiently. Fig. 5.2 shows a tabulation of the permanent 
| arrays and their corresponding pointer arrays. As a 
typical example, the pointer array IPNTRC stores the base 
address (ie. the reference subscript) of each condition 
for the purpose of locating ingredients of conditions. 

The ed ingredient of the pel condition in array LARRY] 
can be obtained by: 

[= TPNERGOEL ): + J 

TDAGA, a LARRYS: (It) 

IDATA is the data address in array DATA of the J°" ingre- 


dient. The number of ingredients which condition I has 


is obtained from: 
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IPNTRC(I+1) - IPNTRC(I) 
Fig. 5.3 shows schematically the overall array 


Structure and their interrelationship. 


Shwe! Input Procedure for Decision Tables 


For the purpose of input, the decision tables 
need not be modified in form to accommodate the storage 
scheme described in Sect. 5.2. The construction of the 
temporary arrays and the one-dimensional permanent arrays 
is entirely an internal operation. 

The tables are read in one after another but 
need not be in any particular sequence since each table 
is identified by a table number. The first card for each - 
table is a table header card which contains the table 
number (T), the number of rules (L), the number of actions 
(M) and the number of conditions (N). The header card is 
followed by a card for each row of the decision table, 
first.the condition rows, then the action rows. . Each of 
these cards contain the data address of the condition or 
action stub, the condition or action entries code, the 
data addresses of the condition or action ingredients and 
a flag "C" if more ingredients are to follow on the next 
card. A maximum of eleven ingredients per condition or 
action is permitted. Fig. 5 4.9ustrates. the caged 
input form of Decision Table 13.5.A.1 (44) in Appendix B. 


The input format is discussed in Appendix C: User's 


Guide. 
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5.4 Condition and Action Subroutines 

These are subroutines associated with the 
condition or action stub of each decision table. The 
function of the condition subroutine is to calculate 
logical values of conditions whereas the action subroutine 
is used for the calculation of numerical values of data 
"elements or for the output of messages. For example, 
data sources (b) and (c) discussed in seme. 3.2 require 
the use of such subroutines. 

Each subroutine is accessed from the main 
routine by a computed GO TO statement where the integer 
table number T controls program flow to the proper call 
Statement as shown in the main routine in Appendix D. 
The presence of the ingredients which are required by 
each subroutine is checked before executing. The only 
action which does not require any ingredients is the 
output of messages. If any ingredients are missing, 
conditional execution, as discussed in Sect. 4.2, is 
activated to retrieve the missing ingredients. The 
actual portion of the subroutine relevant to a particular 
condition or action is referenced by a computed GO TO 
statement within the subroutine where the condition or 
action number controls program flow. A typical example 
of condition and action subroutines is presented in 


Fig. 5.5. This figure illustrates the subroutines for 


Decision Table 13.5.A.1 (44) in Appendix B, which 
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calculates the moment of resistance My and the ratio R2. 
Condition subroutines are designated by CC and action 


subroutines by AA, followed by the table number T. 
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CHAPTER VI 
DECISION TABLING THE 
CSA S16.1 STANDARD - STEEL STRUCTURES FOR BUILDINGS - 
LIMIT STATES-.DESTGN 


6.1 General Description of CSA $16 Standards 
The CSA S16 Standard is the principal guide 


for the design of steel buildings in Canada. The first 

CSA S16 Standard appeared in 1924. The 1969 edition 

(15) of the standard was revised in 1974. The new 
Standard, CSA S16.1-1974 - Steel Structures for Buildings - 
Limit States Design, provides rules, guidelines and 
requirements for the design, fabrication and erection 

of steel buildings where the design is based on limit 
states (2). This Standard takes its place beside 

$16-1969, which will continue to provide engineers with 

a working stress design standard for some time. 

The limitations in precisely wording the 
texts of standards often leads to difficulties in 
interpretation and possible inconsistencies in their 
application. 

The objective of this thesis is. to decision 
table the CSA S16.1 and incorporate the tables into a 


general purpose processing program for checking a design 
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against the Standard. The Standard was still in the 
drafting stage when the tables were being compiled and 


the decision tables are based on the October 1974 draft. 


6.2 Scope Of The Tables Compiled In This Thesis 


The decision tables presented in Appendix B 
cover the sections in Chapters 1 to 13, Chapter (rand 
Chapter 19 of the CSA S16.1 Standard, which deal with 
design decisions and which are not purely descriptive in 
nature. Regrettably due to the amount of time available, 
the other chapters of the Standard could not be compiled. 

The tables and the Standard, do not provide 
certain computational procedures such as computing member 
loadings and forces, or methods of computing section pro- 
perties. These procedures must be provided by the user 
and input to the program as external input data. Decision 
tables are capable of developing all the possible combina- 
tions of conditions. However, certain combinations may 
be invalid or impractical. Therefore, in the development 
of the decision tables in this thesis, only those combina- 


tions which are relevant were incorporated into them. 


6.3 Organization Of The Decision Tables 
In Appendix A, heirachy charts of the tables 


compiled in this thesis are presented. These charts show 
the order of execution of each table when a particular 


checking task is performed. 
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Figs. A.1 to A.11 show the general outline of 
the table organization. A description of the table 
designation is given as an introduction to the Appendix. 
Decision Table X.1(1) makes the decision whether checking 
is to follow the elastic or plastic analysis procedure. 
The former cata eis treated in Decision Table X.2(2) and 
the latter route in Decision Table 8.5 (78). 

The elastic analysis Coy penne treats structural 
elements according to one of the following. 

Structural Steel Member 
Girder 


Bearing Stiffener 


Intermediate Transverse Stiffener 


(a) 

(b) 

kc) 

(d) 

(e) Connection 
(f) Built-up Member 

(g) Composite Member 

(h) Open-Web Steel Joist 

Structural steel members are dealt with starting 
from Decision Table X.3(3), and the chain of execution of 
the subsequent decision tables are as shown in Figs. A.2 
to A.9. Fig. A.2 deals with axial compression or axial 
tension stresses, shear stresses and bending stresses. 
Figs. A.3 to A.4 deal with the classification of sections. 


E1GS.c. Aj. 5: 460 A.7 deal with pure bending stresses. Finally, 


Figs. A.8 and A.9 deal with combined stresses. 
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Fig. A.10 displays the chains of execution for 
girders, bearing stiffeners and intermediate transverse 
stiffeners. Fig. A.11 displays the tables required for 
checking of designs using plastic analysis. 

In these heirachy charts, the full lines 
represent direct execution and the broken lines represent 
conditional execution. Sections of the Standard dealing 
with connections, built-up members, Agnnenne members, 


and open-web steel joists have not been decision tabled. 
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CHAPTER VII 
THE SPECIFICATION PROCESSING PROGRAM 


This chapter discusses the various operational 
modes of the processing program used in checking the con- 
Straints of the Standard, CSA-S16.1. The program will 
also be able to check constraints imposed by other 
standards (or codes), so long as they are presented in 
decision table form. The original program as developed 
by GOEL (12), limits execution to batch-mode only. It is 
also only capable of executing a given decision table 
Once in a particular cycle. Therefore, the versatility 
of the processor is severely handicapped. Modified batch 
mode, interactive mode and recursive execution of a table 
within the same cycle are introduced in this chapter. 

The processing program, both in batch mode and 
interactive mode, has been implemented on the IBM/360/67 
at the University of Alberta computing centre which 


operates under the Michigan Terminal System (MTS). 


7.1 Processing Procedure - Batch Mode 


This section discusses the batch mode operation. 
The source program for this procedure is listed in 
Appendix E. The program in batch mode consists of the 


following subroutines, whose functions are described 
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below. Their interrelationship and sequence of execution 
TS illustrated. schematically in Fig. 7.1 


a) MAIN Routine 


oO 


) SETUP Subroutine 
Cc) INITIAL Subroutine 


e SETS Subroutine 


( 

( 

( 

(d) INPUT Subroutine 
(e) 

(f) STAK Subroutine 
(g) OUTPUT Subroutine 

The MAIN Routine does ail. the constraints 
checking. The objective when checking design constraints 
is to identify the apolicapTe rule in each decision table 
according to a given combination of conditions. This 
involves matching the condition stub with the corres- 
ponding condition entries. Before matching, all required 
data elements are checked for their availability. In 
batch mode, if a data element is not available from the 
data source discussed in Sect. 3.2, the program will 
take an error exit route aborting the run. 

Ssubgoutine: SETUP reads: the decision table 
input, the properties of data and creates temporary and 
compacted permanent arrays. The dependents of data 
elements are also generated by this subroutine. 


Subroutine INITIAL which is called by subroutine 


SETUP, initialized all the arrays needed by the program. 
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Subroutine INPUT is used for reading the 
externally input data and for clearing of dependent data 
for the second or subsequent cycles. This subroutine is 
called by the MAIN ROUTINE. 

Suitir cisitkive SETS is used to evaluate the data in 
mutually exclusive sets at the time of external input and 
is called by subroutine INPUT. 

Subroutine STAK performs the stacking of 
decision tables for conditional execution and generates 
messages to that effect. 

Subroutine OUTPUT outputs all the data elements 
which have a value at the end of each cycle for the 


purpose of checking and diagnosis. 


7.2 Processing Procedure - Interactive Mode 


This section discusses the procedure in imple- 
menting the interactive mode. In batch mode Operation as 
discussed in the last section, control of the program 
takes the error exit route, terminating execution when- 
ever a data element is missing and cannot be evaluated 
internally. This results in a large number of abortive 
runs which is both uneconomical and time (real time and 
CPU time) consuming. The interactive mode is implemented 
with these inefficiences in mind. The main advantage of 
this mode is that the user can input data items from the 
on-line terminal, as an alternative to termination of 


execution. 
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Instead of taking the error exit route for the 
reasons discussed above, the subroutine READIN is called 
by. the MAIN ROUTINE to input the missing data element 
from the terminal. A message is printed on the terminal 
indicating the nature of the element. The main steps of 
the procedure are as follows and are also illustrated in 
Fig.thi2. 

(a) Read in missing data item (its subscript and 
value). Input a negative interger value for 
the subscript if the user wishes to terminate 
execution. 

(b) Call subroutine SETS if the data item belongs 
to a mutually exclusive set. 

(c) Clear the data item's dependents if not in the 
first cycle. 

(d) Return to MAIN ROUTINE. 

Illustrative worked examples and their computer 
Output are presented in Chapter VIII. A detailed input 
procedure is also provided in the USER'S GUIDE in Appendix 
C. The source program listing of interactive mode 


procedure is presented in Appendix D. 


7.3 Recycling Procedure 


In a design problem, the checking of a number 
of design alternatives may be required before a final 


design is chosen. For this reason, a recycling facility 
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has been incorporated into the processor with the inter- 
active mode procedure. After the completion of cycle one 
execution, the program awaits the value of the variable 
INDIC from the terminal. A value of 2 for INDIC indicates 
there are no further cycles, whereas a value of 1 indicates 
a further cycle is required. The external data required 
for this next cycle can be input directly from the 
terminal. The limit of the number of cycles per run is 
999, 

In the second and Subsequent cycles, a large 
number of data will be unchanged. Usually only a limited 
number of data elements will require alteration from the 
previous cycle. The clearing of dependents of the altered 
data elements is done internally in subroutine INPUT by 
Setting their + tlags, im tie array PRD UO Ys RAESEY i Sats 


clearing procedure is discussed in Sect. 7.4. 


7.4 Clearing Of Dependent Data 


The characteristics of ingredients and dependents 
discussed in Sect. 3.4 lead to the conclusion that when a 
data element changes its value, its dependents, if any, 
will change their values as well. Hence it becomes 
necessary to clear the dependents of a data element once 
We hasan’ Ai tered value. Clearing of a data element is 
done simply by setting its presence flag in array PRD to 


.FALSE. . From the ingredience-dependence relationship 
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discussed, it can be deduced that it is possible for 
dependents to have their own dependents, down to a number 
of levels. During the dependent clearing process, these 
dependents of dependents will also have to be cleared. A 
data element stacking procedure is provided by the 
Subroutine STAK with the clearing process which is flow 


chartedvin’ Figst.7 saeand «7 #4, 


7.5 \Reeunsive,Use,Of Lablesyln ACyele 


There are numerous situations where it would be 
advantageous to execute a decision table more than once. 
For example, to calculate the class of several compression 
elements of a built-up member. 

In the original program (12), such checking 
either had to be performed in separate runs or in different 
cycles. 

Fig. 7.5 illustrates a scheme whe neby decision 
tables can be written in such a way that they can be used 
recursively in one cycle with the existing processing 
program. The decision tables associated with section 13.8 
of the Code, which checks the constraints for axial 
compression and bending, have been rewritten as decision 
tables 56R to 59R as shown in Appendix B, in order to 
illustrate the application and potential of this scheme. 
The scheme makes use of counters CHECKI and CHECKN to 
keep track of the number of times the decision table has 


been executed. 
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The™steps of checking a Class 1; ‘I-Section’ for 
axial compression and bending, as carried out by decision 
tables 56R to 59R, and as illustrated in Fig. 7.5, are as 
Fat ERR: 

(a) Table 56R determines whether the problem is 
axial compression and bending or axial tension 
and bending. The value of counter CHECKI is 
initialized to zero. 

(b) Since the section is a class 1, I-section. 

Rule number 1 applies in Table 57R, and the 

number of equations to be checked is 3. Hence, 

the value of CHECKN is set to 3, and Table 58R 
is to be directly executed. 

(c) After the actions in Table 58R are completed, 
control returns to Table 57R and the next 
action is to check whether CHECKI > CHECKN. If 
not, CHECKI is again increased by one and the 
checking cycle is repeated. If yes, control 
returns to the MAIN ROUTINE. 

In Decision Table 57R, note that the data 
elements specified in the data statement DATA MCLEAR/ 

/, and their dependents must be cleared by subroutine 
CLEAR before the table is recycled. Otherwise these data 
elements will still be present from the previous cycle 
and the program will not recognize that the data elements 


must be recomputed. 
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From Decision Table 58 and Decision Table 58R, 
the number of equations needed to be checked for axial 
compression and bending is reduced from three to two by 
the scheme discussed above. Thereby, reducing the number 
of overall data elements. Consequently, the total number 
of decision tables required should be reduced. This is 
of advantage since in a standard (or code) of reasonable 
size, the number of decision tables and data elements 
will be very large. Reduction in their quantity will 
lead to shorter processing time and reduced storage 


requirements. 
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CHAPTER VIII 
APPLICATION EXAMPLES 


Three examples are solved in this chapter to 
illustrate the_use of the processor-described in chapters 
Vand VII in checking sections under different combina- 
tions of stress resultants. The data requirement, a 
trace of the execution of the decision tables and the 
relevant computer output (both from the on-line terminal 
and the line printer) of each example are presented 
together with supporting manual design calculations to 


verify the computer results. 


8.1 Example 1 - Axially Loaded Column 


Consider the column shown in Fig. 8.1 to be 
part of a frame-shear wall system. The 12 ft. column 
consists of two 8x6xe angles of G40.12 - 44W steel, 
supporting a maximum dead load of 300 kips and a maximum 
axial live load of 85 kips. 

This example illustrates a typical program run 
in interactive mode. The output from the on-line terminal 
is presented in Fig. 8.2. The output from the line 
printer, dis ipnesented, in, figs. 8.3. 8.45 8.15, 8.6. The 
bulk of the data information in the output are printed by 
the. line-pminternsioln Fig. 8.2. .statements in lower case 


letters are those input by the user, whereas statements 
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in upper case letters are those output by the computer. 
The MTS (Michigan Terminal System) files, input and 
output units associate with the first statement ($RUN 
control command) are discussed in Appendix C: Users' 
Guide. 

Since data items 222+ and 223t are not avail- 
able, and are not obtainable by executing any other 
tables, messages are then output on the terminal indica- 
ting the condition or action number of the table to which 
each data item corresponds. Subroutine READIN is called 
enabling the missing data items to be input directly from 
the terminal. Terminal data input can be of the free- 
format type which is of considerable advantage. The data. 
item numbers (222 and 223) are input first followed by 
their values (0.0 in both cases). 

Upon completion of checking, the design message 
"Strength Criterion Satisfied" is output on the terminal 
which indicates that the section is satisfactory for the 
imposed loading. At this stage, the execution of the 
program either terminates or re-executes another cycle 
depending on whether the variable INDIC is given a value 
of 1 or 2. In this example, a value of 2 is input from 
the terminal since no further cycles are required. 


‘For data description, see Appendix B. 


vr 


WUAE) Sand tbe et vf, ane rE | 93 
‘aege <9" Lette tnt nepeuaatione 
vet \o5/y Pita | 

-fipva Don-svs- ess" ‘Wns 1888 saad c 


datdw ot sfdst ona 40: waite nottas 10° pti 

mont Yisoe1th Huqni ad ‘ot ened t sted onteetm AF ot 7 : 
-997? ont +0 sd mp2 Suga stb Fantinst Rien . ; 

s3sh OnT ogsdrevbs atdersbt noo: to at dotiocany’ Seay 
vd bswoifot deur avant oh (ess bee, $88) 2nae mu f 
“(28889 dod, ni a0) asuteu * 

“spse2emn nyi2sb. ‘eas cont ioeno to. nortenheos noqu 

, fentmnas aad aire) suqtwo at “baftersse noi vest49 inessat | 
sft vo? ios setet dee et nortose sts deity. 2etsotbat fohaw 1G a 
sia to notdusexs git soups. ent $A ppnbans becoamt a 
a afayo: ranvons: 2otuveKe- rea” oO bial eddie mareong | 


oulev 6 nevie: at Oraist ‘sideiney ads netted no ontbneqed: va 


boffseo et WIGAgA® anttvovdue sabnoqzerro 


moat tudnt et § ‘6 ouiev. 1s <9Tqmaxe aide AD (8 vO a 
| hott gh" 216. ate nod gvut On sont bladed att | 


7a ; a amt ¢ 4) Ab Ae F e 


8 xtbnsqqA 992 .totigivoess stsb wea” 


4] 


Fig. 8.3 lists the externally input data items 
for cycle 1. "KGLOB" is the data number and "DATAK" is 
the value. These data items are read by Subroutine 
INPUT. When reading a data item, the subroutine simul- 
taneously checks for whether it belongs to a mutually 
exclusive set. If so, the values of the other data items 
in the same set are set to 0.0. Fig. 8.4 lists the 
externally input data items together with their mutually 
exclusive set companions, if any, for the purpose of echo 
checking. 

| Fig. 8.5 shows a trace of all the decision 
tables which have been executed in cycle 1. Whenever the 
execution of a particular table is suspended, the reason 
and point of suspension are shown on this trace. Once 
the execution of each table is completed, the applicable 
rule number is indicated. 

Finally, a design message "Strength Criterion 
Satisfied" is output indicating the section is satis- 
factory when supporting an axial compressive load of 385 
kips. This message is also output on the terminal as 
SHOWN Ent Pygits. 24 

| Fig. ene lists the data items which have a 
value at the end-.of.cycleats The correctness of their 


values is verified by the manual design calculations in 


Tables 1 and 2. 
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The significant data item in Fig. 8.6 is data 
number 150 which represent the ratio R1 = Pel bwe? where 
Pe is the factored axial compressive force and nae is the 
factored compressive resistance. The value of R1 = 0.8944 
(< 1.0) indicates the section is satisfactory and not 


overdesigned. Hence a second cycle to choose a better 


section will not be necessary. 


8.2 Example 2 - Laterally Unsupported Beam 
A W12x50 wide - flange section, of G40.12-44W 


steel, is to be checked for suitability as a beam of 
length 24 feet. The section is laterally unsupported 
except at the ends. This beam is aeriiired to support a 
uniformally distributed dead load of 1.2 kip per foot, 
and a live load of 0.6 kip per foot. 

This example is executed in interactive mode 
using the same procedure employed in Example pont Tush eo A). 
SiO, Oss Cel, oll, O.lc; 0.16. present. tne Computer 
output associated with this example. The content and 
significance of these figures are similar to those of 
Example 1 which have been discussed in detail with that 
example. 

it, Fig. oO.lo; data number "ol Which represemes 


the ration R2 peg. > Where Mey is the factored moment 


X 
about the major axis and Mo is the factored moment of 


resistance about the major axis, has a value of 0.9724 


42 


SeGy ‘pa an iP 
SAS A oe bas 837 


SHOR Ory Tah to. auley! oat 


iy 


; Ssh oe ‘4 


batyoqavenu Uifenstet af ninee 7 
6 ae ot bsyi ups ai bis holds i 4 pri 


Pine’: 


© Nive 4 win sie 


sbom gvistosyetnat at betusoxs a 


nan: 2007 .f Das Lis bayofane oon 


bas in9tn09 ed - aTamexe aad. 5 sabia. tuga00 


to scout oF vetting 346) ower sesdt Po sonisottingte 
“tedd tw fedeb ni’ bazeuoetb nea aved abt iw Si ofqmaxd 


Boe ae ue / ST qmpxs: 


2tnszangss | ot diy ref Wahi eae sit es i at 


tneniom, barodast ant 2k xyarania Salat = Sa rer eat 


Yo, dnsmom bsnotaet sie 2 eat bas. 2txe totem on3 tuods 
WSNC.0 to s0fsy £ 25h c2txs wigs ond. duods ponstat ear 


43. 


which indicates the section has sufficient moment capa- 
eity’..The ratio Ve/Vy> where Ve is the factored shear 
force and Vis is the factored shear resistance, has a 

value of 0.24 which indicates the section is satisfactory 
in shear. The correctness of the data values in Fig. 8.13 
is verified by the manual design calculations in Tables 3 


tO55: 


8.3 Example 3 - Axial Compression and Bending 
A WIGx49 wide-flange section, of G40.12-44W 


steel, is to be checked for suitability as a column in a 
building with a 9.5 foot storey height. The sway effects 
due to wind and other lateral loads are to be resisted by 
a bracing system. The dead and live load moments, and 
the axial compressive load on the member are shown in 
Big shaal 4. 

megsareabs& SAVEL Ssl 7NpPeitlSyos. THe &.a20), 13.121 
present the computer output for cycle 1 checking. Upon 
the completion of this cycle, the section is found to be 
unsatisfactory both in strength and stability require- 
ments as indicated by the message in Fig. 8.20. From the 
data values output at the end of cycle 1, as shown in 
Fig. 8.21, the values of the following three equations 


are found to be: 
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These values are verified by the manual design 
calculations in Tables 6 to 9. 

Since the section W10x49 is found to be 
unsatisfactory in cycle 1, a second cycle to test a 
heavier section (W10x66) is desired. This can be accom- 
plished without termination of the program run. A value 
of 1 for the variable INDIC is input from the terminal 
(Figs 0.15) 5° indicatingecycie 22 as’ required: 

The externally input data items for this cycle 
are then input next via the terminal using the free- 
format type onpinput (Pig« 8.15). The. amount of cycle: 2 


Gata 1S considenapry less than that for cyclemimsince at 


only consists of data items whose values have been changed 


or new data items which the user wishes to add. For 


example, data number 59 (flange width) changed from 5.0 
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inch to 5.06 inch since the section has changed to a 
W10x66. Cycle 2 data items are reproduced on Fig. 8.22 
for echo checking. 

Once the program receives the data for this 
cycle, the checking procedure which follows is identical 
to that foe cycle 1. The design message and data values 
snown In Figs. —8.26 and 8.27 at the end of this cycle 
indicate the section is satisfactory for the imposed 
loading. From Fig. 8.27, the values of equations (i), 
€ii) and (“11) are found to be 0.6999, 0.6984, and 0.8749 
respectively. The correctness of these values is veri- 
fied by the design et cufare Tons Taeerapnes: 6-to lz. The 
wa lue of 0:67 for equation (11a) indicates the section is 


satisfactory but not overdesigned. 
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DESIEN CALCULATION For EYAMPLE 1 
- AXIAL COMPRESSION MEMBER 


LOADING 


= 300 képs ¥= 0.9 Ko 125 


= 85 képs Xp =/.25° Ye= /.0 


Oo a oo 


WW avi xr 
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COLUMN) SECTION Z-24Bx6x 
G@FtO.jlk —-FAW 


Le/z fe. KReZsF in Sx = /AaT (i 
Ag = 16.7 in* hy =2.4Z in 


CHECK CLASS OF SECTION 
SS ents ate 


bh = Bez = 12.7 “ CLASS = 3 (clause 1) 


Sway FeRcES RESISTED BY SHEAR WALL 


oo Ke = ky = bo (Ciausé 9.3.2) 


Ke ls aa lo x 144 = 56.69 
Vx 2-54 
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TABLE 1 DESIGN CALCULATION FOR EXAMPLE 1 
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DESIGN CALCULATION FOR EXAMPLE 1 
AXIAL COMPRESSION MEMBER SHEET Z OFZ 
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TABLE 2 DESIGN CALCULATION FOR EXAMPLE 1 
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DESIGN CALCULATION FOR EXAMPLE 2 
ITERALL UNSUPPORTED BEAM 


SHEET L OF 3 
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TABLE 3 DESIGN CALCULATION FOR EXAMPLE 2 
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DESIGN CALCULATION FoR EXAMPLE Z 

LATERALLY UNSUPPORTED BEAL SWEET Z OF 3 
| CHECK SECTION CLASS 
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TABLE 4 DESIGN CALCULATION FOR EXAMPLE 2 
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DESIGN CALCULATION FOR EXAMPLE 2 
LATERALLY UNSUPPORTED BEAM SHEET 3 OF 3 


CHECK SHEAR 


VY.= 12x 2¢ 
2 


t 

~ 
A 
te 
NX 
a 


O-6x 24 


= 0.9[ p2sx 14d + hoCrsx72)] 
w 25:92 keeps 


is E, 
hiy = 29.4 < 167 = = 58./8 (Crausé 13.¢./ ) 
y 


Ck = $34 for unstiffened webs ) 


= 0.66 Fy 
= GAL, = 0.9 «4.05 * 0-66 x44 
loops 


= (es. gs 


= 0.24 (<l-o ) 


SHEAR CRITERION SATISHIEO 


W//2x 50 
SECTION SATISFACTOR yy 


TABLE 5 DESIGN CALCULATION FOR EXAMPLE 2 
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DESIGN CALCULATION FoR EXAMPLE 3 
AX/AL COMPRESSION AND BENDING SHEET 1 OF 7 


Z OCADING 
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CHAPTER IX 
SUMMARY AND CONCLUSIONS 


Currently in engineering, the development of 
computer programs in analysis is much more advanced than 
that in design and decision processing. The computer 
will be an even more valuable tool to engineers if it can 
be used for implementing decisions to a greater extent. 

A large part of the design process in structural 
engineering is devoted to satisfying specific requirements 
of the codes or specifications of different authorities. 
This procedure largely involves checking of logical 
conditions, arising from numerical calculations. 

The method of tabular decision logic used in 
this thesis is found to be a suitable technique for 
formulating, displaying, and documenting the decision 
making procedures required by codes and specifications. 
Since this technique presents decision making procedures 
in a logical fashion, it is also useful for implementing 
these procedures on the computer. 

Most computer-aided structural design programs 
in use at the present time, such as the CISC - Column 
Selection Program (3), and the CISC - Floor System Sel- 
ection Program Ca Ye have the code requirements built 


into the analysis and member selection subroutines. 
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Since code requirements are often subjected to revisions, 
revising and updating these programs becomes a tedious 
task. 

The decision table technique used herein to 
compile sections of the new CSA S16.1 - Steel Structures 
for Buildings - Limit States Design Standard renders the 
code requirement checking operation into an individual 
module entirely independent from the analysis and member 
selection procedure. In this way, any further code 
revisions can easily be handled by changing the relevant 
decision tables and their associated condition and action 
Subroutines (Sect. 5.4). This procedure is schematically 
illustrated in Fig. 9.1. 

In Chapter VIII, a number of example problems 
are checked against CSA S16.1 using the decision tables 
compiled in this thesis. The validity of the tables is 
checked by manual calculations. The design decisions 
incorporated into the decision tables are completely 
objective and according to the requirements of the 
Standard. 

Conditional execution has been used extensively 
in the decision table arrangement. The main reason for 
this approach is that in conditional execution, not every 
data item required by a particular decision table need be 
available before the execution can commence. This is in 
contrast to the direct execution approach which requires 


the presence of all the data items appearing in the table 
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regardless of whether they are actually used. In addition, 
often due to the presence of immaterial conditions in the 
condition entries of a table, certain conditions may not 
have to be tested at all in order to locate the governing 
rule. The precomputation of such data elements is, 
therefore, wasteful. Hence, this approach is inefficient 
and results in a large number of redundant data items. 

An interactive mode procedure has been developed 
herein which enables the user to execute program runs and 
input data items from an on-line terminal remote from the 
physical rere of the computer. This mode also facili- 
tates the input of second or Subsequent cycles of data 
immediately after the result of the previous cycle is 
known. 

A pilot scheme for the recursive execution of 
tables has been introduced. hie ae to the a OeeaLeiiee y 
that a considerable saving in the total number of data 
elements and decision tables may be achieved. 

There are a number of areas in which improve- 
ments or further developments of the work described in 
this thesis can be made. Some of these are: 

(a) To complete the documentation of CSA S16.1, in 
decision table format, so that it can be incor- 
porated into analysis and design programs. 

(b) To associate the code requirement checking 


processor with a module which sizes and selects 
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members according to design criteria so that 
the design process can be more fully automated. 


The recursive execution of tables within a 


cycle increases the complexity of the ingredience- 


dependence relationship of data elements. A 
move er hicient dynamic concept of ingredience 

and dependence may be desirable. 

The input and output may be improved to be more 
user orientated. If the output and input of 

data elements can be referenced by name as well 

as subscript, it will undoubtly be helpful to 

the user when interpreting output results. 1% 
would also be practical if the user could 

select whichever data element he desires to be 
output on the terminal for checking and reviewing. 
In a completely integrated scheme, the checking 
program should have a provision which auto- 
matically returns control back to the member 
selection module if a section does not satisfy 

the code requirements or is overdesigned, as 
illustrated in Fig. 9.1. Furthermore, improve- 
ments can be made in the interactive mode to 
provide a flexible system which allows the 


designer to ‘break in' to a cycle at any point 


he desires. 
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CONDITION 1 
CONDITION 2 
ACTION 1 
ACTION 2 


ACTION 3 


Play -2.3 A REDUCED SIZE DECISION TABLE 


Definition of External input 


Table number from which 


data item flag value of data can be 


obtained 


FIG. 2.4 DATA REQUIREMENTS OF A DECISION TABLE 
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FIG. 3.2 GENERATING DEPENDENTS FROM INGREDIENTS 
OF A CONDITION OR AN ACTION 
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SUBROUTINE CC44 (I) 

TAPLICIT LOGICAL*1 (P), INTEGER*2 (I-R) 
COMMOB/MICA/DATA (700) , PRD (700) 

PQUIVALENCE (DATA (63) ,SH), (DATA (64) ,SW) , (DATA (76) , PY), 
* (DATA (272) , SHW13) , (DATA (273) ,$HW14) , (DATA (75) ,FCR), 

* (DATA (274) , $HW15) 

GO TO (9999 ,9999,9999,9999, 9999, 9999, 9999, 9999,90, 100) ,I 
IP (SH/SW.GT.12000.0/FY) GO TO 102 

IP (SH/SW.LE.690.0/SQRT(FCR)) GO TO 102 

$HW15=1.0 

GO TO 104 

$HW15=0.0 

PRD (274) =. TRUE. 

RETURS 

IF (SH/SW.LE.699.0/SQRT(FCR)) GO TO 106 

$HW13=0.0 

GO TO 108 

$H813=1.0 

PRD (272) =. TRUE. 

RETORN 

WRITE (6,110) 

PORMAT(1X,*NO SUBROUTINE NECESSARY FOR THIS CONDITION’) 
RETURN 

END 

SUBROUTINE AAGS (K) 

IMPLICIT LOGICAL*1 (P), INTEGER*2 (I=N) 
COMMON/MICA/DATA (700) , PRD (700) 

COMMON/MINCE/ICYCLE 

EQUIVALENCE (DATA (134) ,PMRX), (DATA(197) ,FHAI) , (DATA(80) ,S), 
* (DATA (75) , PCR) , (DATA(47) ,AW) , (DATA(48) , AF) , (DATA (63) ,SH) , 
* (DATA (64) ,SW), (DATA(151) ,R2), (DATA(132) ,FMPX) , (DATA (76) , FY) 
GO TO (10,20,30,40),K 

PARX=AMIN1(FHAI*S*FCR, FHAI*S*PY) 

PRD (134) =. TRUE. 

RETURN 
PMRX=AMIN1(PHAI*S*FY, FHAI*S*PCR) * (1.0-0. 0005*AW/AF* (SH/SH-690.0/ 
*SQRT (FCR) )) 

PRD (134) =. TRUE. 

RETURN 

WRITE (6,100) 

WRITE (7, 100) 

PORMAT(1X,'***#* PMRX=DATA (134), TO BE DETERMINED BY CLAUSE 12,', 
*° CSA S136, *#eeet) 

WRITE (6, 102) 

WRITE (7,102) 

PORMAT(1H1,2X,°******CALL OUTPUT, THEN TERMINATE PROGRAM’, 
*¢ BFCAUSE OF THE ABOVE MESSAGE FROM AAU *%4eHK 1) 

CALL OUTPUT (ICYCLE) 

STOP 

R2=PSPX/PMRX 

PRD(151) =. TRUE. 

RETURM 

END 

SUBROUTINE CC45 (I) 

IMPLICIT LOGICAL*1 (P), INTEGER*®2 (I-W) 
COMMOMN/MICA/DATA (700) , PRD (700) 

EQUIVALENCE (DATA(59),SB), (DATA(58) ,ST) , (DATA (191) , SKB) , 
* (DATA (76) , PY) , (DATA(258) ,$BT18) 

GO TO (10) ,I 

IF (SB/ST.LE.201.0*SORT(SKB/FY)) GO TO 100 

$BT16=0.0 
GO TO 102 
$BT16=1.0 
PRD (258) =. TRUE. 
RETURN 
END 


FIG.:5.5 GONDIRION AND ACTION SUBROUTINES FOR 
DECISION TABLE 13.5.A.1 (44) 
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NEXT ip! 
DEPENDENT 


IS THIS THE 
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CONDITION NUMBER SOF TABLE 41S NOT AVAILABLE, THIS CORRESPONDS TO DATA NUMBER 222 


SUBROUTINE READIN 1S CALLED To INPUT THIS DATA ITEM 
ceoeeAWAITING INPUT FOR DATA ITEM WITH SUBSCRIPT] 222 
THIS DATA ITEM 1S A CONDITION. 
222,0.0, 


CONDITION NUMBER 60F TABLE WIS NOT AVAILABLE. THIS 


; SUBROUTINE READIN 1S CALLED TO INPUT THIS DATA 1TEM 
seeesAWAITING INPUT FOR DATA ITEM WITH SUBSCRIPT# 223 
THIS DATA ITEM JS A CONDITION, 
223,0.0, 


STRENGTH CRITERION SATISFIED 


PLEASE INPUT A VALUE OF 1 OR 2 FOR INDIC 
1 INDICATES THERE ARE FURTHER CYCLES 

2 INDICATES NO FURTHER CYCLES 
2, : 
EXECUTION OF PROGRAM IS COMPLETED. 

COLLECT YOUR OUTPUT FROM THE COMPUTING CENTER.COME BACK SOON 
920:20.23 4.156 RC#0 
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CORRESPONDS TO DATA NUMBER 223 


FIG. 8.2 TERMINAL OUTPUT FOR EXAMPLE 1 
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THE FOLLOWING NOMERICAL DATA HAS BEEN SUPPLIED FOR CYCLE WUMBER 1 


KGLOB DATAK 
1 1.0000 
10 1.0000 
23 1.0000 
25 0.0 
46 16.7000 
58 0.6300 
59 8.0000 
76 44.0000 
78 29000.0000 
119 1.0000 
121 0.0 
122 1.0000 
123 1.0000 
124 1.0000 
125 1.0000 
166 1.0000 
179 1.0000 
186 144.0000 
188 2.4200 
197 0.9000 
208 2.5400 
216 144.0000 
400 0.9000 
401 1.2500 
402 1.5000 
403 1.5000 
4O4 1.2500 
405 1.0000 
406 300.0000 
407 85.0000 
408 0.0 
409 0.0 
220 1.0000 
221 1.0000 


FIG. 8.3 COMPUTER OUTPUT FOR EXAMPLE 1 
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DATA PRINTED AGAIN POR CHECKING. 


KGLOB 
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1.0000 
144.0000 
2.4200 
0.9000 
2.5400 
144.0000 
1.0000 
1.0000 
0.9000 


COMPUTER OUTPUT FOR EXAMPLE 1 


PRD 


tliat tet teeter rly Tr Tree rere rere rere 


1.2500 
1.5000 
1.5000 
1.2500 
1.0000 
300.0000 
85.0000 
0.0 
0.0 


ONLY THAT DATA WHICH HAS A VALUE IS REPRODUCED HERE 
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CYCLE NOMBER 1 ose START EXECUTION WITH TABLE 1 eee 
SCANNING OF TABLE 1 IS COMPLETE. RULE NO. 14 APPLIES 


SUSPENDED EXECUTION OF TABLE 1 AT ACTION 1 OF RULE 1 
STARTED EXECUTION OF TABLE 2 FOR DIRECT EXECUTION 


SCANNING OF TABLE 2 IS COMPLETE. RULE NO. 1 APPLIES 


SUSPENDED EXECUTION OP TABLE 2 AT ACTION 1 OF RULE 1 
STARTED EXECUTION OF TABLE 3 FOR DIRECT EXECUTION 


SCANNING OP TABLE 3 IS COMPLETE. RULE NO. 7 APPLIES 


SOSPENDZD EXECUTION OF TABLE 3 AT ACTION 5 OP RULE 7 
STARTED EXECUTION OF TABLE 27 FOR DIRECT EXECUTION 


SUSPENDED EXECUTION OF TABLE 27 AT CONDITION 1 OF RULE 1 
REASON: NISSING INGREDIENT CORRESPONDING TO DATA NUMBER 150 
STARTED EXECUTION OF TABLE 28 

SCANNING OP TABLE 28 IS COMPLETE. RULE NO. 1 APPLIES 


SUSPENDED EXECUTION OF TABLE 28 AT ACTION 1 OF- RULE 1 
STARTED EXECUTION OP? TABLE 30 FOR DIRECT EYECUTION 


SUSPENDED EXECUTION OP TABLE 30 AT CONDITION 1 OF ROLE 1 
STARTED EXECUTION OF TABLE 5 TO OBTAIN VALUE OF DATA NUMBER 95 


SCANNING OF TABLE 5 IS COMPLETE. RULE NO. 1 APPLIES 


SUSPENDED EXECUTION OF TABLE S AT ACTION 1 OF RULE 1 
STARTED EXECUTION OF TABLE 21 FOR DIRECT EXECUTION 


SCANNING OF TABLE 21 IS COMPLETE. RULE NO. 11 APPLIES 
RESTART EXECUTION OF TABLE 5 AT ACTION 1 OP RULE 1 
RESTART EXECUTION OF TABLE 30 AT CONDITION 1 OP RULE 1 
SCANNING OP TABLE 30 IS COMPLETE. RULE NO. 3 APPLIES 
SUSPENDED EXECUTION OF TABLE 30 AT ACTION 1 OF RULE 3 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 185 
STARTED EXECUTION OF TABLE 4 
SCANNING OF TABLE 4 IS COMPLETE. RULE 40. 4 APPLIES 


RESTART EXECUTION OF TABLE 30 AT ACTION 1 OF ROLE 3 


SUSPENDED EXECUTEON OF TABLE 30 AT ACTION 2.0F RULE 3 
STAPTED EXECUTION OP? TABLE 31 POR DIRECT EXECUTION 


SCANNING OF TABLE 31 IS COMPLETE. RULE NO. 1 APPLIES 

SUSPENDED EXECUTION OP TABLE 31 AT ACTION 5 OP RULE 1 < 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 120 

STARTED EXECUTION OF TABLE 93 

SCANNING OF TABLE 93 IS COMPLETE. RULE NO. 7 APPLIES 

RESTART EXECUTION OF TABLE 31 AT ACTION 5 OP RULE 1 

RESTART EXECUTION OF TABLE 30 AT ACTION 2 OF RULE 3 

RESTART EXECUTION OF TABLE 28 AT ACTION 1 OF ROLE 1 

RESTART EXECUTION OP TABLE 27 AT CONDITION 1 OF RULE 1 


SCAWNING OP TABLE 27 IS COMPLETE. RULE NO. 1 APPLIES 


STRENGTH CBITERIOM SATISFIED 
RESTART EXECUTION OP TABLE 3 AT ACTION 5 OF RULE 7 


RESTART EXECUTION OF TABLE 2 AT ACTION 1 OP RULE 1 
RESTART EXECUTION OF TABLE 1 AT ACTION 1 OF ROLE 1 


FIG. 8.5 COMPUTER OUTPUT FOR EXAMPLE 1 
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DATA VALUES AT THE END OF CYCLE KO. 1 
OWLY THAT DATA WHICH HAS A VALUE IS REPRODUCED HERE 


KGLOB DATAK PRD 
1 1.0000 Tr 173 0.0 T 
2 0.0 T 174 0.0 T 
10 1.0000 T 175 0.0 T 
11 0.0 T 179 1.0000 T 
12 0.0 T 185 1.0000 iy 
13 0.0 r 186 144.0000 T 
14 0.0 T 188 . 2.4200 t 
US 0.0 T 197 0.9000 T 
16 0.0 T 208 2.5400 vi 
17 0.0 T 214 1.0000 T 
23 1.0000 T 215 59.5041 T 
24 0.0 T 216 144.0000 T 
25 0.0 ae 217 59.5041 T 
46 16.7000 T 219 56.6929 T 
58 0.6300 T 220 1.0000 T 
“59 8.0000 T 221 1.0000 T 
76 44.0000 T 222 0.0 uy 
78 29000.0000 T 223 0.0 ay 
95 0.0 TT 230 0.7382 T 
96 0.0 T 231 1.0000 T 
97 1.0000 T 232 0.0 T 
98 0.0 T 233 0.0 T 
119 1.0000 t 234 0.0 £, 
120 452.2498 T 254 0.9 T 
121 0.0 vy 255 0.0 T 
122 1.0000 Tt 256 1.0000 Tv 
123 1.0000 Tt 257 0.0 T 
124 1.0000 T 400 0.9000 7 
125 1.0000 49 401 1.2500 ft 
126 0.0 au 402 1.5000 T 
145 505.6328 T 403 1.5000 T 
150. 0.8944 T 404 1.2500 T 
151 0.0 T 405 1.0000 T 
152 0.0 T 406 300.0000 T 
153 0.0 OY 407 _ 85.0000 T 
154 1.0000 t 408 0.0 Tt 
165 0.0 uy 409 0.0 T 
166 1.0000 T 
167 0.0 + 
168 0.0 T 
169 0.0 i 
170 0.0 T 
171 0.0 T : 
MU o-6 4 EXECUTION OP PROGRAM IS COMPLETED 


FPG. 826 COMPUTER OUTPUT FOR EXAMPLE 1 
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$run obcombIne 5#)ub 9=decidatal 8=csasl6 28mapnsave 6*save2 4e*sources 7eesinke 
#20;22.14 


ERROR MESSAGE; DATA NUMBER 63 
1S NOT AVAILABLE.THIS 1S AN INGREDIENT OF A CONDITION 
#eeeeAWAITING INPUT FOR DATA ITEM WITH SUBSCRIPT= 63 
THIS DATA ITEM 1S A MISSING INGREDIENT OF A CONDITION 
63,10.91, 


STRENGTH CRITERION SATISFIED 
##eMeSHEAR CRITERION SATISFIEDseeen 


PLEASE INPUT A VALUF OF 1 OR 2 FOR INDIC 
1 INDICATES THERE ARE FURTHER CYCLES 
2 INDICATES NO FURTHER CYCLES 
2, 
EXECUTION OF PROGRAM 1S COMPLETED. 
COLLECT YOUR OUTPUT FROM THE COMPUTING CENTER.COME BACK SOON 
pte ese 5.243 RC=0 


FIG. 8.7 TERMINAL OUTPUT FOR EXAMPLE 2 
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THE POLLOWING NUMERICAL DATA HAS BREEN SUPPLIED FOR CYCLE WUMBER 1 


FIGS 8 £2 


KGLOB DATAK 
1 1.0000 
10 1.0000 
22 1.0000 
26 1.0000 
29 1.0000 
40 1.0000 
47 4.0500 
48 5.1800 
58 0.6410 
59 4.0400 
64 0.3710 
65 12.1900 
76 44.0000 
78 29000.0000 
79 72.5000 
80 64.8000 
119 1.0000 
121 1.0000 
122 0.0 
123 1.0000 
124 0.0 
‘127 0.0 
128 1.0000 
129 0.0 
130 1.0000 
138 3190.0000 
169 1.0000 
176 0.0 
177 1.0000 
180 0.0 
187 288.0000 
189 2.2000 
197 0.9000 
225 1.0000 
320 1.0000 
342 1.0000 
334 0.0 
400 0.9000 
401 1.2500 
402 1.5000 
403 1.5000 
404 1.2500 
405 1.0000 
410 1036.8001 
411 518.3999 
412 0.0 
413 0.0 
418 14.4000 
419 7.2000 
420 0.0 
421 0.0 
125 0.0 


COMPUTER OUTPUT FOR EXAMPLE 2 
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DATA PRINTED AGAIN POR CHECKING. ONLY THAT DATA WHICH HAS A VALUE IS REPRODUCED HERE 


KGLOB 


65 1 
76 4 
78 2900 
79 7 


avG: 9 


DATAK 


ecooscso 
ee © @ e@ 
ooo 


oo 
So 
o 


ele ee ¢ Ee, 8 


o2720200246 
oooocoocoocoococoocsd 


4.0500 
5.1800 
0.6410 
4.0400 
0.3710 
2.1900 
4.0000 
0.0000 
2.5000 


oooo — 
°° 
oso 


Soo0eco+-04 
eooocoocooccoso 


COMPUTER OUTPUT FOR EXAMPLE 2 


PRD 
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169 
170 
171 
172 
173 
174 
175 
176 
177 
180 
187 
189 
197 
224 
225 
226 
320 
321 
322 
334 
342 
343 
344 
400 
401 
402 
403 
4o4u 
405 
410 
411 
412 
413 
418 
419 
420 
421 


000 


a er Oey 6.461 08 6 ohne 6 
cocoeocescooco$o 


~ 
a 
N@MWormcocoocco— 


° 
N 
Oo 
o 
So 


a. Qe he, (6 “ene ete 


1036.8001 
518.3999 
0.0 
0.0 
14.4000 
722000 
0.0 
0.0 
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CYCLE NOMBER 1 ee START EXECUTION WITH TABLE 1 ee 
SCANNING OF TABLE 1 IS COMPLETE. RULE No. 1 APPLIES 


SUSPENDED EXECUTION OP TABLE 1 AT ACTION 1 OF RULE 1 
SPARTED EXECUTION OF TABLE 2 FOR DIRECT EXECUTION 


SCANNING OF TABLE 2 IS COMPLETE. RULE NO. 1 APPLIES 


SUSPENDED EXECUTION OF TABLE 2 AT ACTION 1 OF RULE 1 
STARTED EXECUTION OF TABLE 3 FOR DIRECT EXECUTION 


SCANNING OF TABLE 3 IS COMPLETE. RULE NO. 5 APPLIES 


SUSPENDED EXECUTION OP TABLE 3 AT ACTION 5 OF RULE 5 
STARTED EXECUTION OF TABLE 27 FOR DIRECT EXECUTION 


SUSPENDED EXECUTION OF TABLE 27 AT CONDITION 1 OF RULE 1 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 151 
STARTED EXECUTION OF TABLE 42 

SCANNING OF TABLE 42 IS COMPLETE. RULE NO. 2 APPLIES 


SUSPENDED EXECUTION OF TABLE 42 AT ACTION 3 OF RULE 2 
STARTED EXECUTION OF TABLE 46 FOR DIRECT EXECUTION 


SCANNING OP TABLE 46 IS COMPLETE. RULE NO. 1 APPLIES 


SUSPENDED BXECUTION OF TABLE 46 AT ACTION 2 OF RULE 1 
STARTED EXECUTION OF TABLE 47 POR DIRECT EXECUTION 


SUSPENDED EXECUTION OF TABLE 4&7 AT CONDITION 3 OF RULE 1 
STARTED EXECUTION OF TABLE 5 TO OBTAIN VALUE OF DATA NUMBER 95 


SUSPENDED EXECUTION OP TABLE 5 AT CONDITION 7 OF RULE 7 
STARTED EXECUTION OF TABLE 6 TO OBTAIN VALUE OF DATA NUMBER 99 


SCANNING OF TABLE 6 IS COMPLETE. RULE NO. 2 APPLIES 


SUSPENDED EXECUTION OF TABLE 6 AT ACTION 1 OF RULE 2 
STARTED EXECUTION OF TABLE 14 FOR DIRECT EXECUTION 


SCANNING OF TABLE 14 IS COMPLETE. RULE NO. 2 APPLIES 


SUSPENDED EXECUTION OF TABLE 14 AT ACTION 2 OP RULE 2 
STARTED EXECUTION OF TABLE 16 FOR DIRECT EXECUTION 


SCANNING OF TABLE 16 IS COMPLETE. RULE NO. 1 APPLIES 


RESTART EXECUTION OF TABLE 16 aT ACTION 2 OF RULE 2 


RESTART EXECUTION OF TABI.E 6 AT ACTION 1 OF RULE 2 
RESTART EXECUTION OF TABLE 5 AT CONDITION 7 OF RULE 7 


SUSPENDED EXECUTION OF TABLE 5 AT CONDITION 11 OF RULE 7 
STARTED EXECUTION OF TABLE 20 TO OBTAIN VALUE OF DATA NUMBER 110 


SCANNING OF TABLE 20 IS COMPLETE. RULE NO. 2 APPLIES 


SOSPENDED EXECUTION OF TABLE 20 AT ACTION 1 OF RULE 2 
STARTED EXECUTION OF TABLE 21 FOR DIRECT EXECUTION 


SCANNING OF TABLE 21 IS COMPLETE. RULE MO. 5 APPLIES 


FIG. 8.10 COMPUTER OUTPUT FOR EXAMPLE 2 
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RESTART EXECUTION OF TABLE 20 AT ACTION 1 OF ROLE 2 
KESTART RXECUTION OF TABLE 5 AT CONDITION 11 OP RULE 7 
SCANNING OP TABLE 5 IS COMPLETE. RULE NO. 7 APPLIES 


SUSPENDED EXECUTION OF TABLE 5 AT ACTION 7 OP RULE 7 
STARTED EXECUTION OP TABLE 7 FOR DIRECT EXECUTION 


SCANNING OF TABLE 7 IS COMPLETE. RULE NO. 4 APPLIES 
RESTART EXECUTION OF TABLE 5 AT ACTION 7 OF RULE 7 
RESTART EXECUTION OF TABLE 47 AT CONDITION 3 OF RULE 1 
SCANNING OF TABLE 47 IS COMPLETE. RULE NO. 1 APPLIES 


SUSPENDED EXECUTION OF TABLE 47 AT ACTION 1 OP RULE 1 
STARTED EXECUTION OF TABLE 48 FOR DIRECT EXECUTION 


SUSPENDED EXECUTION OP TABLE 48 AT CONDITION 1 OF RULE 1 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 137 
STARTED EXECUTION OF TABLE 51 

SCANNING OF TABLE 51 IS COMPLETE. RULE NO. 14 APPLIES 

SUSPENDED EXECUTION OF TABLE 51 AT ACTION 2 OF RULE 1 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 194 
STARTED EXECUTION OF TABLE 52 

SCANNING OP TABLE 52 IS COMPLETE. RULE NO. 1 APPLIES 


SUSPENDED EXECOTION OP TABLE 52 AT ACTION 1 OF RULE 1 
STARTED EXECUTION OF TABLE 53 FOR DIRECT EXECUTION 


SCAWNING OP TABLE 53 IS COMPLETE. RULE WO. 2 APPLIES 


RESTART EXECUTION OF TABLE 52 AT ACTION 1 OF RULE 1 
RESTART EXECUTION OF TABLE 51 AT ACTION 2 OF RULE 1 
SUSPENDED EXECUTION OF TABLE 51 AT ACTION 2 OF RULE 1 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 195 
STARTED EXECUTION OF TABLE 55 
SCANNING OF TABLE 55 IS COMPLETE. RULE NO. 1 APPLIES 
RESTART EXECUTION OF TABLE 51 AT ACTION 2 OF RULE 1 
RESTART EXECUTION OF TABLE 48 AT CONDITION 1 OF RULE 1 
SCANNING OF TABLE 48 IS COMPLETE. RULE NO. 1 APPLIES 
SUSPENDED EXECUTION OF TABLE 48 AT ACTION 3 OF RULE 1 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 132 
STARTED EXECUTION OF TABLE 93 
SCANNING OP TABLE 93 IS COMPLETE. RULE NO. 5 APPLIES 
RESTART EXECUTION OF TABLE 48 AT ACTION 3 OF RULE 1 
RESTART EXECOTION OF TABLE 47 AT ACTION 1 OF RULE 1 
RESTART EXECUTION OF TABLE 46 AT ACTION 2 OF RULE 1 
RESTART EXECUTION OF TABLE 42 AT ACTION 3 OF ROLE 2 
RESTART BXECUTION OF TABLE 27 AT CONDITION 1 OF RULE 1 


SCAHNING OF TABLE 27 IS COMPLETE. RULE NO. 1 APPLIES 


FIG. 8.11 COMPUTER OUTPUT FOR EXAMPLE 
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STRENGTH CRITERION SATISFIED 
RESTART EXECUTION OF TABLE 3 AT ACTION 5 OF RULE 5 


SUSPENDED EXECUTION OF TABLE 3 AT ACTION 7 OF RULE 5 
STARTED EXECUTION OP TABLE 74 POR DIRECT EXECUTION 


SUSPENDED EXECUTION OF TABLE 74 AT CONDITION 1 OF RULE 1 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA WUABER 326 
STARTED EXECUTION OF TABLE 75 

SCANNING OF TABLE 75 IS COMPLETE. RULE NO. 1 APPLIES 

SUSPENDED EXECUTION OF TABLE 75 AT ACTION 1 OF RULE 1 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 327 
STARTED EXECUTION OF TABLE 76 ; 

SUSPENDED EXECUTION OF TABLE 76 AT CONDITION 1 OF RULE 1 
BEASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 328 
STARTED EXECUTION OP TABLE 77 

SCANNING OF TABLE 77 IS COMPLETE. RULE NO. 1 APPLIES 
RESTART EXECUTION OF TABLE 76 AT CONDITION 1 OF RULE 1 
SCANNING OF TABLE 76 IS COMPLETE. RULE NO. 1 APPLIES 
RESTART EXECUTION OF TABLE 75 AT ACTION 1 OF ROLE 1 
RESTART EXECUTION OF TABLE 7&4 AT CONDITION 1 OF RULE 1 


SCANNING OF TABLE 74 IS COMPLETE. RULE NO. 1 APPLIES 
OeSeeSHEAR CRITERION SATISFIED##¥e% 


RESTART EXECUTION OF TABLE 3 AT ACTION 7 OF RULE 5 
RESTART EXECUTION OF TABLE 2 AT ACTION 1 OF RULE 1 


RESTART EXECUTION OF TABLE 1 AT ACTION 1 OF RULE 1 


PIG.. S..1i2e COMPUTER OUTPUT FOR EXAMPILE 2 
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Or has iin 


DATA VALUES AT THE END op CYCLE NO. 1 
ONLY THAT DATA WHICH HAS ~A VALUE IS REPRODUCED HERE 


KGLOB DATAK PRD 
1 1.0000 T 165 0.0 T 
2 0.0 Tt 166 0.0 BY 
10 1.0000 T 167 0.0 T 
11 0.0 T 168 0.0 T 
12 0.0 T 169 1.0000 T 
13 0.0 T 170 0.0 T 
14 0.0 T 171 0.0 T 
15 0.0 T 172 0.0 a¥ 
16 0.0 T 173 0.0 T 
7 0.0 T 174 0.0 T 
21 0.0 T 175 0.0 T 
22 1.0000 T 176 0.0 T 
26 1.0000 T 177 1.0000 T 
27 0.0 T 180 0.0 T 
28 0.0 T 187 288.0060 T 
29 1.0000 T 189 2.2000 T 
30 0.0 T - 194 1.0000 T 
40 1.0000 T 195 29.5096 T 
41 0.0 T 196 14.5881 T 
47 4.0500 T 197 0.9000 Gy 
48 5.1800 T 224 0.0 ? 
58 0.6410 T 225 1.0000 T 
59 4.0400 t 226 0.0 T 
63 10.9100 T 254 1.0000 T 
64 0.3710 T 255 0.0 T 
65 12.1900 T 256 0.0 T 
76 44.0000 T 257 0.0 g 
78 ' 29000.0000 T 262 1.0000 T 
719 72.5000 T 263 0.0 T 
80 64.8000 t 264 0.0 Gy 
95 1.0000 T 265 0.0 f 

96 0.0 T 

275 0.0 T 
sad 0.0 T 284 1.9000 T 
98 0.0 Tt 285 0.0 Fy 
99 1.0000 =i 286 0.0 oT 
100 0.0 T 287 0.0 T 
101 0.0 T 320 1.0000 T 
102 0.0 T 321 0.0 r 
WM o50 z 325 25.9200 T 
ae a0 *: 326 105.8508 T 
113 0.0 T 327 29.0400 T 
a pecede x 328 5.3400 T 
122 0.0 T 330° 0.0 Tt 
123 1.0000 OX 334 0.0 tr 
124 0.0 T 342 1.0000 T 
125 0.0 T 343 0.0 Za 
126 0.0 T 344 0.0 a8 
127 0.0 T 400 0.9000 T 
128 1.0000 T 401 1.2500 T 
129 0.0 T 402 1.5000 tT 
130 1.0000 T 403 1.5000 T 
132 1866.2398 T 804 1.2500 tT 
134 1919.1516 T 405 1.0000 uy 
137 2133.1218 Tt 410 1036.8001 T 
138 3190.0000 T 411 518.3999 T 
139 1.0000 T 412 0.0 T 
150 0.0 GY 413 0.0 Tt 
151 0.9724 418 14.4000 T 
152 0.0 T 419 7.2000 T 
154 1.0000 T 420 0.0 Tt 
155 1.0000 e3 421 0.0 t 


EXECUTION OF PROGRAB IS COBPLETED 


FIG. 8.13 COMPUTER OUTPUT FOR EXAMPLE 2 
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FIG. 8.14 LOADING CONDITION FOR EXAMPLE 3 


o3 


$run obcombine S=comben 9=decidatal 82csasl6 2=#mapnsave G=save 4e=esourcee 7=esinke 


21349335 


seeee BOTH STRENGTH AND STABILITY CRITERIA NOT SATISFIED eeeee 


PLEASE 


1 INDICATES THERE ARE FURTHER CYCLES 
2 INDICATES NO FURTHER CYCLES 


AWAITING 
65,10,38, 
AWAITING 


AWAITING 
58,0.748, 
AWAITING 


"AWAITING 
AWAITING 
AWAITING 
AWAITING 
AWAITING 


AWAITING 
188,2.58, 
AWAITING 
208,4.44, 
AWAITING 
189,2.8, 
AWAITING 
138,3646.27, 
AWAITING 
190,853.5, 
AWAITING 
440,25.5, 
AWAITING 
441,38.8, 
AWAITING 
0, 


INPUT A VALUE OF 1 OR 2 FOR INDIC 


NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 


NEXT 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
1TEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 


ITEM 


#eeee STRENGTH AND STABILITY CRITERIA SATISFIED. tee 


PLEASE 


2, 


INPUT A VALUE OF 1 OR 2 FOR 
1 INDICATES THERE ARE FURTHER CYCLES 
2 INDICATES NO FURTHER CYCLES 


EXECUTION OF PROGRAM 1S COMPLETED. 


INDIC 


COLLECT YOUR OUTPUT FROM THE COMPUTING CENTER.COME BACK SOON 
#21:54:04 1.048 RC=0 
t] 
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TERMINAL OUTPUT FOR EXAMPLE 3 
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THE FOLLOWING NUMERICAL DATA HAS BEEN SUPPLIED FOR CYCLE NUMBER 


FIG. 


8.16 


KGLOB 


DATAK 


1.0000 
1.0000 
1.0000 
0.0 
1.0000 
1.0000 
1.0000 
14.4000 
5.5800 
0.5580 
5.0000 
8.8800 
0.3400 
44.0000 
29000. 0000 
60.3000 
54.6000 
1.0000 
0.0 
0.0 
0.0 
1.0000 
1.0000 
1.0000 
1.0000 
1.0000 
2490. 3899 
1.0000 
1.0000 
114.0000 
2-5400 
2-7700 
633.6001 
0.9000 
4.3500 
1.0000 
1.0000 
1.0000 
1.0000 
1.0000 
1.0000 
0.9000 
1.2500 
1.5000 
1.5000 


COMPUTER OUTPUT FOR EXAMPLE 3 


1.2500 

1.0000 
90..0000 
21.0000 

0.0 


0.0 
1067.0000 
0.0 
0.0 
0.0 
297.0000 
0.0 
0.0 
114.0000 
114.0000 
0.0 
1.0000 
1.0000 
0.0 
0.0 
0.0 
10.0000 
0.0 
1.0000 
18.6000 
28.2000 
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DATA PRINTED AGAIN FOR CHECKING. ONLY THAT DATA WHICH HAS A VALUE IS REPRODUCED HEPE 


KGLOB DATAK PRD 
1 1.0000 T 197 0.9000 T 
2 0.0 T 208 4.3500 T 
10 1.0000 mn 216 114.0000 T 
11 0.0 7 220 1.0000 T 
12 0.0 7 221 1.0000 Tr 
13 0.0 T 222 0.0 Wy 
14 0.0 7 223 0.0 T 
15 0.0 © 224 0.0 ue 
16 0.0 T 225 0.0 T 
17 0.0 T 226 1.0000 T 
23 1.0000 tT 290 1.0000 T 
24 0.0 T 291 0.0 GY 
25 0.0 T 320 1.0000 uy 
26 1.0000 T 321 0.0 T 
27 0.0 T 322 0.0 Ge 
28 1.0000 1 323 0.0 T 
29 0.0 T 324 1.0000 1 
30 0.0 T 342 1.0000 T 
40 1.0000 7 343 0.0 T 
4) 0.0 rT 344 0.0 ay 
46 14.4000 T 400 0.9000 T 
48 5.5800 T 401 1.2500 T 
58 0.5580 T 402 1.5000 T 
59 5.0000 T 403 1.5000 T 
63 8.8800 ye 404 1.2500 T 
64 0.3400 T 405 1.0000 T 
65 10.0000 ay 406 90.0000 Te 
76 44.,0000 7 407 21.0000 T 
78 29000. 0000 T 408 0.0 T 
719 60. 3000 T 409 0.0 T 
sor o” 54.6000 T 410 0.0 T 
119 1.0000 T G11 1067. 0000 T 
121 0.0 1 412 0.0 bY 
122 0.0 T 413 0.0 T 
123 0.0 7 414 0.0 T 
124 1.0000 T 415 297.0000 T 
125 1.0000 4 ¢ 416 0.0 T 
126 0.0 T 417 0.0 T 
127 1.0000  Y 44Q 18. 6000 T 
128 1.0000 T O44 28.2000 7 
129 1.0000 T 
130 1.0000 T 
138 2490.3899 hy 
165 0.0 T 
166 0.0 T 
167 0.0 Ge 
168 0.0 T 
169 1.0000 T 
170 0.0 7 
171 0.0 T 
172 0.0 7 
A7:3, 0.0 T 
174 0.0 T 
UtAS) 0.0 T. 
176 0.0 Tv 
177 1.0000 T 
178 1.0000 by 
180 0.0 T 
186 114.0000 T 
187 114.0000 T 
188 2.5400 T 
189 2.7700 T 
190 633.6001 T 


BEG toe 17. COMPUTER OUTPUT FOR EXAMPLE 3 
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CYCLE NOMBER 1 eee START EXECUTION WITH TABLE 1 vee 
SCANNING OF TABLE 1 IS COMPLETE. RULE NO. 1 APPLIES 


SUSPENDED EXECUTION OF TABLE 1 AT ACTION 1 OF ROLE 1 
STARTED EXECUTION OP TABLE 2 FOR DIRECT EXECUTION 


SCANNING OF TABLE 2 IS COMPLETE. RULE NO. 1 APPLIES 


SUSPENDED EXECUTION OF TABLE 2 AT ACTION 1 OF RULE 1 
STARTED EXECUTION OF TABLE 3 FOR DIRECT EXECUTION 


SCANNING OF TABLE 3 IS COKPLETE. RULE NO. 13 APPLIES 


SUSPENDED EXECUTION OP TABLE 3 AT ACTION 6 OF RULE 13 
STARTED EXECUTION OF TABLE 56 POR DIRECT EXECUTION 


SCANNING OF TABLE 56 IS COMPLETE. RULE NO. 1 APPLIES 


SUSPENDED EXECUTION OF TABLE 56 AT ACTION 1 OF RULE 1 
STARTED EXECUTION OF TABLE 57 FOR DIRECT EXECUTION 


SUSPENDZD EXECUTION OF TABLE 57 AT CONDITION 3 OF RULE 1 
STARTED EXECUTION OF TABLE 5 TO OBTAIN VALUE OF DATA NOMBER 95 


SUSPENDED EXECUTION OF TABLE 5 AT CONDITION 7 OF RULE 7 
STARTED EXECUTION OP TABLE 6 TO OBTAIN VALUE OF DATA NUMBER 99 


SCANNING OF TABLE 6 IS COMPLETE. RULE NO. 2 APPLIES 


SOSPENDED EXECUTION OP TABLE 6 AT ACTION 1 OP RULE 2 
STARTED EXECUTION OF TABLE 14 FOR DIRECT EXECUTION 


SCANNING OF TABLE 14 IS COMPLETE. RULE WO. 3 APPLIES 


SUSPENDED EXECUTION OP TABLE 14 AT ACTION 3 OF RULE 3 
STARTED EXECUTION OF TABLE 17 POR DIRECT EXECUTION 


SUSPENDED EXECUTION OF TABLE 17 AT CONDITION 1 OF RULE 1 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 120 
STARTED EXECUTION OF TABLE 93 

SCANNING OF TABLE 93 IS COMPLETE. RULE NO. 13 APPLIES 
RESTART EXECUTION OF TABLE 17 AT CONDITION 1 OF RULE 1 
SCANNING OF TABLE 17 IS COMPLETE. RULE NO. 1 APPLIES 


SUSPENDED EXECUTION OP TABLE 17 AT ACTION 1 OP RULE 1 
STARTED EXECUTION OF TABLE 18 FOR DIRECT EXECUTION 


SCANNING OF TABLE 18 IS COMPLETE. RULE NO. 1 APPLIES 
RESTART EXECUTION OF TABLE 17 AT ACTION 1 OF RULE 1 
RESTART EXECUTION OF TABLE 14 AT ACTION 3 OF RULE 3 
RESTART EXECUTION OF TABLE 6 AT ACTION 1 OF RULE 2 
RESTART EXECUTION OF TABLE 5 AT CONDITION 7 OF RULE 7 


SUSPENDED EXECUTION OF TABLE 5 AT CONDITION 11 OF RULE 7 
STARTED EXECUTION OF TABLE 20 TO OBTAIN VALUE OF DATA NUMBER 110 


SCANNING OF TABLE 20 IS COMPLETE. RULE NO. 2 APPLIES 


SUSPENDED EXECUTION OP TABLE 20 AT ACTION 1 OP RULE 2 
STARTED EXECUTION OF TABLE 21 POR DIRECT EXECUTION 


SCANNIWG OF TABLE 21 IS COMPLETE. RULE NO. 6 APPLIES 
RESTART EXECUTION OF TABLE 20 AT ACTION 1 OF RULE 2 
RESTART EXECUTION OF TABLE 5 AT CONDITION 11 OF RULE 7 


SCANNING OF TABLE 5 IS COMPLETE. RULE NO. 8 APPLIES 


FIG. 8.18 COMPUTER OUTPUT FOR EXAMPLE 3 
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SUSPENDED EZXECUTION OP TABLE 5 Af ACTION 8 OF RULE 8 
STARTED EXECUTION OF TABLE 8 POR DIRECT EXECUTION 


SCANNING OF TABLE 8 ITS COMPLETE. RULE NO. 5 APPLIES 
RESTART EXECUTION OF TABLE 5 AT ACTION 6 OF RULE 8 
RESTART EXECUTION OF TABLE 57 AT CONDITION 3 OF RULE 1 
SCANNING OP TABLE 57 IS COMPLETE. RULE NO. 2 APPLIES 


SUSPENDED EXECUTION OF TABLE 57 aT ACTION 1 OF RULE 2 
STARTED EXECUTION OP TABLE 58 FOR DIRECT EXECUTION 


SUSPENDED EXECUTION OF TABLE 58 AT CONDITION 1 OF RULE 1 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 295 
STARTED EXECUTION OF TABLE 60 

SCANNING OF TABLE 60 IS COMPLETE. RULE NO. 2 APPLIES 
RESTART EXECUTION OF TABLE 58 AT CONDITION 1 OF RULE 1 


SUSPENDED EXECUTION OF TABLE 56 aT CONDITION 2 OF RULE 8 
REASON: MISSING INGREDIZNT CORRESPONDING TO DATA BUABER 298 


STARTED EXECUTION OP TABLE 67 
SCANNING OF TABLE 67 IS COMPLETE. RULE NO. 1 APPLIES 
RESTART EXECUTION OF TABLE 58 AT CONDITION 2 OF RULE 4 


SUSPENDED EXECUTION OF TABLE 56 AT CONDITION 3 OF RULE 5 
REASON: HISSING INGREDIENT CORRESPONDING TO DATA NUMBER 297 


STARTED EXECUTION OF TABLE 65 

SUSPENDED EXECUTION OF TABLE 65 AT CONDITION 1 OF RULE 1 
REASOW: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 313 
STARTED EXECUTION OF TABLE 66 


SCANNING OF TABLE 66 IS COMPLETE. RULE NO. 1 APPLIES 
SUSPENDED EXECUTION OF TABLE 66 AT ACTION 1 OF RULE 1 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 215 
STARTED EXECOTION OF TABLE 4 
SCANNING OF TABLE 4 IS COMPLETE. RULE NO. 4 APPLIES 
RESTART EXECUTION OF TABLE 66 AT ACTION 1 OF RULE 1 
RESTART EXECOTION OF TABLE 65 AT CONDITION 1 OF ROLE 1 
SCANHING OF TABLE 65 IS COMPLETE. RULE NO. 1 APPLIES 
RESTART EXECUTION OF TABLE 58 AT CONDITION 3 OF ROLE 5 
SUSPENDED EXECUTION OF TABLE 58 AT CONDITION 3 OF RULE 5 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA WUMBER 1946 
STARTED EXECOTIOW OF TABLE 52 


SCANNING OF TABLE 52 IS COMPLETE. RULE NO. 1 APPLIES 


SUSPENDED EXECUTION OF TABLE 52 AT ACTION 1 OF RULE 1 
STARTED EXECUTION OF TABLE 53 FOR DIRECT EXECUTION 


SCANNING OF TABLE 53 IS COMPLETE. RULE NO. 1 APPLIES 


SUSPENDED EXECOTION OP TABLE 53 AT ACTION 1 OF RULE 1 
STARTED EXECUTION OF TABLE 54% FOR DIRECT EXECUTION 


SCANNING OF TABLE 54 IS COMPLETE. RULE WO. 3 APPLIES 
RESTART EXECUTION OP TABLE 53 aT ACTION 1 OF RULE 1 


RESTART EXECOTION OF TABLE 52 aT ACTzOW 1 OF RULE 1 


FIG. 8.19 COMPUTER OUTPUT FOR EXAMPLE 3 
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RESTART EXECUTION OF TABLE 58 AT CONDITION 3 OF ROLE 5 
SUSPENDED EXECUTION OF TABLE 58 AT CONDITION 3 OP RULE 5 
REASON: MISSIMG INGREDIENT CORRESPONDING TO DATA NUMBER 299 
STARTED EXECUTION OF TABLE 62 

SCANHING OF TABLE 62 IS COMPLETE. RULE NO. 2 APPLIES 


SUSPENDED EXECUTION OF TABLE 62 AT ACTION 1 OP RULE 2 
STAPTED EXECUTION OF TABLE 63 FOR DIRECT EXECUTION 


SUSPENDED EXECUTION OF TABLE 63 AT CONDITION 1 OF ROLE 1 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 137 
STARTED EXECOTION OF TABLE 51 

SCANNING OP TABLE 51 IS COMPLETE. RULE NO. 1 APPLIES 

SUSPENDED EXECUTION OP TABLE 51 AT ACTION 2 OF RULE 1 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 195 
STARTED EXECUTION OF TABLE 55 

SCANNING OF TABLE 55 IS COMPLETE. RULE NO. 1 APPLIES 
RESTART EXECUTION OF TABLE 51 AT ACTION : 2 OF RULE 1 
RESTART EXECUTION OF TABLE 63 AT CONDITION 1 OF RULE 1 
SCANNIWG OP TABLE 63 IS COMPLETF. RULE NO. 1 APPLIES 
RESTART EXECUTION OP TABLE 62 AT ACTION 1 OF RULE 2 
RESTART EXECUTION OF TABLE 58 AT CONDITION 3 OF RULE 5 

SUSPENDED EXECUTION OP TABLE 58 AT CONDITION 3 OF RULE 5 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 311 
STARTED EXECOTION OP TABLE 68 

SCANNING OP TABLE 68 IS COMPLETE. RULE NO. 1 APPLIES 
RESTART EXECUTION OP TABLE 58 AT CONDITION 3 OP RULE 5 

SUSPENDED EXECUTION OF TABLE 58 AT CONDITION 3 OF RULE 5 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 310 
STARTED EXECUTION OF TABLE 69 

SCANNING OF TABLE 69 IS COMPLETE. RULE NO. 1 APPLIES 


SUSPENDED EXECOTION OF TABLE 69 AT ACTION 1 OF RULE 1 
STARTED EXECUTION OF TABLE 70 POR DIRECT EXECUTION 


SCANNING OF TABLE 70 IS COMPLETE. RULE NO. 1 APPLIES 


SUSPENDED EXECUTION OF TABLE 70 AT ACTION 1 OF ROLE 1 
STARTED EXECUTION OF TABLE 71 POR DIRECT EXECUTION 


SCANNING OF TABLE 71 IS COMPLETE. RULE NO. 4 APPLIES 
RESTART EXECUTION OP TABLE 70 AT ACTION 1 OF RULE 1 
RESTART EXECUTION OF TABLE 69 AT ACTION 1 OF ROLE 1 
RESTART EXECUTION OF TABLE 58 AT CONDITION 3 OF RULE 5 
SCAWNING OF TABLE 56 IS COHPLETE. RULE WO. 6 APPLIES 


e6e6¢ BOTH STRENGTH AWD STABILITY CRITERIA NOT SATISFIED *##ee@ 


RESTART EXECUTION OF TABLE 57 AT ACTION 1 OF RULE 2 
RESTART EXECUTION OF TABLE 56 AT ACTION 1 OF RULE 1 
RESTART EXECUTION OF TABLE 3 AT ACTION 6 OF RULE 13 
RESTART EXECUTION OF TABLE 2 AT ACTION 1 OF RULE 1 


RESTART EXECUTION OF TABLE 1 AT ACTION 1 OF ROLE 1 


FIG. 8.20 COMPUTER OUTPUT FOR EXAMPLE 3 
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DATA VALUES AT THE END OF CYCLE NO. 1 178 1.0000 Gy 
OWLY THAT DATA WHICH HAS A VALUE IS REPRODUCED HERE 180 0.0 T 
185 1.0000 T 
KGLOB DATAK PRD 186 114.0000 bY 
187 114.0000 T 
188 2.5400 cp 
1 1.0000 T 189 2.7700 7 
2 0.0 T 190 633.6001 T 
10 1.0000 T 194 1.0000 T 
1 0.0 T 195 97.8947 T; 
12 0.0 Ge 196 147.6012 Gy 
13 0.0 Ge 197 0.9000 T 
14 0.0 T 208 4.3500 T 
15 0.0 T 214 1.0000 T 
16 0.0 a 215 44.8819 T 
7 0.0 T 216 114.0000 rT 
23 1.0000 T 217 44.8819 T 
24 0.0 T 219 26.2069 Ge 
25 0.0 T 220 1.0000 T 
26 1.0000 vT 221 1.9000 GY 
27 0.0 uy 222 0.0 GW 
28 1.0000 T 223 0.0 T 
29 0.0 T 224 0.0 7 
30 0.0 T 225 0.0 T 
40 1.0000 2 226 1.0000 T 
41 0.0 7 254 0..0 T 
46 14.4000 v 255 1..0000 T 
48 5.5800 uy 256 0.0 T 
58 0.5580 a 257 0.0 T 
59 5.0000 T 266 1.0000 7 
63 8.8800 T 267 0.0 T 
64 0.3400 T 268 0.0 T 
65 10.0000 T 275 0.0 Ge 
76 44.0000. Gy 290 1.0000 T 
78 29000-0000 T 291 0.0 Ge 
79 60.3000 Gy 295 2241.3508 T 
80 54.6000 Gy 296 1116.7195 7 
95 0.0 T 297 486.7878 T 
96 1.0000 7 298 570.2397 T 
97 0.0 a 299 2241.3508 T 
98 0.0 T 310 0.8500 T 
99 1.0000 7 311 5996.4922 T 
100 0.0 T 312 2046.4961 T 
101 0.0 T 313 0.5568 7 
102 0.0 Gy 314 1.0000 T 
110 0.0 Ge 315 0.0 T 
111 1.0000 7 316 0.0 T 
112 0.0 T 317 0.0 T 
113 0.0 T 320 1.0000 T 
119 1.0000 T 321 0.0 T 
120 129.6000 T 322 0.0 Tv 
121 0.0 i 323 0.0 T 
122 0.0 Gy 324 1.0000 T 
123 0.0 T 335 0.0 T 
124 1.0000 T 336 1.0000 T 
125 1.0000 vy 337 0.0 T 
126 0.0 T 342 1.0000 T 
127 1.0000 T 343 0.0 T 
128 1.0000 T 344 0.0 Gy 
129 1.0000 T 400 0.9000 7 
130 1.0000 T 401 1.2500 7 
132 1440.4500 Gy 402 1.5000 T 
133 400.9500 T 403 1.5000 T 
136 1.0000 Oy 404 1.2500 T 
137 9670.4375 Gy 405 1.0000 T 
138 2490.3899 T 406 90.0000 T 
139 1.0000 7 407 21.0000 T 
153 0.0 Gy 408 0.0 T 
165 0.0 T 409 0.0 T 
166 0.0 iT 410 0.0 T 
167 0.0 T 411 1067. 0000 T 
168 0.0 T 412 0.0 T 
169 1.0000 Hy 413 0.0 T 
170 0.0 T 414 0.0 T 
171 0.0 T 415 297.0000 4 
172 0.0 be 416 0.0 2 
173 0.0 a 417 0.0 T 
174 0.0 z 440 18.6000 T 
175 0.0 T 441 28.2000 T 
176 0.0 T 
177 1.0000 G3 


rig ares | COMPUTER OUTPUT FOR EXAMPLE 3 
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THE FOLLOWING NUMERICAL DATA HAS BEEW SUPPLIED POR CYCLE NUMBER 2 


KGLOB DATAK 
65 10. 3800 
ay) 5.0600 
58 0.7480 
64 0.4570 
63 8.8800 
1h) 82.8000 
80 73.6000 
46 19.4000 
48 77-5700 

188 2-5800 
208 4.4400 
189 2-8000 
138 3646.2700 
190 853.5000 
440 25.5000 
G44 38.8000 


DATA PRINTED AGAIN POR CHECKING. ONLY THAT DATA WHICH HAS A VALUE IS REPRODUCED HERE 


KGLOB DATAK PRD 

1 1.0000 T 

2 0.0 T 
10 1.0000 T 
1 0.0 T 
12 0.0 T 
13 0.0 T 
14 0.0 T 
15 0.0 T 
16 0.0 T 
17 0.0 T 
23 1.0000 T 
24 0.0 T 
25 0.0 T 
26 1.0000 T 
27 0.0 T 
28 1.0000 T 
29 0.0 T 
30 0.0 T 
40 1.0000 T 
41 0.0 T 
46 19.4000 T 
48 7.5700 T 
58 0.7480 T 
59 5.0600 T 
63 8.8800 T 
64 0.4570 T 
65 10.3800 T 
76 44.0000 T 
78 29000.0000 T 
79 82.8000 T 
80 73.6000 T 
95 0.0 T 
96 1.0000 T 
101 0.0 T 
119 1.0000 T 
120 129.6000 T 
121 0.0 T 
122 0.0 T 
123 0.0 T 
124 1.0000 T 
125 1.0000 T 
126. 0.0 . 
127 1.0000 T 
128 1.0000 T 
129 1.0000 T 


EG Vera COMPUTER OUTPUT FOR EXAMPLE 3 
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130 1.0000 T 
132 1440.4500 T 
133 400.. 9500 z. 
138 3646.2700 iy 
153 0.0 T 
165 0.0 T 
166 0.0 Ty 
168 0.0 T 
169 1.0000 T 
170 0.0 v 
171 0.0 T 
172 0.0 T, 
173 0.0 ap 
174 0.0 y 
175 0.0 T 
176 0.0 T 
177 1.0000 T 
178 1.0000 up 
180 0.0 T 
185 1.0000 T 
186 114.0000 ude 
187 114.0000 T 
188 2.5800 T 
189 2-8000 + 
190 853.5000 y 
194 1.0000 T 
197 0.9000 T 
208 4.4400 T 
214 1.0000 T 
216 114.0000 T 
220 1.0000 7, 
221 1.0000 T 
222 0.0 T 
As) 0.0 Ge 
224 0.0 T 
225 0.0 T 
226 1.0000 7 
290 1.0000 7 
29n 0.0 T 
310 0.8500 T 
320 1.0000 1 
321 0.0 ah 
322 0.0 T 
323 0.0 T 
324 1.0000 Ge 
342 1.0000 T 
343 0.0 + 
344 0.0 My 
400 0. 9000 T 
401 1.2500 T 
402 1.5000 T 
403 1.5000 T 
4O4 1.2500 GY 
405 1.0000 T 
406 90.0000 We 
407 21.0000 T 
408 0.0 wy 
409 0.0 7 
410 0.0 Gy 
411 1067. 0000 T 
412 0.0 T 
413 0.0 T: 
414 0.0 T 
415 297.0000 4p 
416 0.0 T 
417 0.0 T 
440 25.5000 T 
441 38.8000 T 


ae CoN owe ae, COMPUTER OUTPUT FOR EXAMPLE 3 
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CYCLE NOMBER 2 eee START EXECOTION WITH TABLE 1 bid 
SCANNING OF TABLE 1 IS COMPLETE. RULE NO. 1 APPLIES 


SUSPENDED EXECUTION OF TABLE 1 AT ACTION 1 OF RULE 1 
STARTED EXECUTION OF TABLE 2 POR DIRECT EXECUTION 


SCANNING OF TABLE 2 IS COMPLETE. RULE NO. 1 APPLIES 


SUSPENDED EXECUTION OF TABLE 2 AT ACTION 1 OF RULE 1 
STARTED EXECUTION OF TABLE 3 FOR DIRECT EXECOTION 


SCANNING OF TABLE 3 IS COMPLETE. RULE NO. 13 APPLIES 


SUSPENDED EXECUTION OF TABLE 3 AT ACTION 6 OF RULE 13 
STARTED EXECUTION OF TABLE 56 FOR DIRECT EXECUTION 


SCANNING OF TABLE 56 IS COMPLETE. RULE NO. 1 APPLIES 


SUSPENDED EXECUTION OP TABLE 56 AT ACTION 1 OF RULE 1 
STARTED EXECUTION OF TABLE 57 FOR DIRECT EXECUTION 


SUSPENDED EXECUTION OF TABLE 57 AT CONDITION 5 OF RULE 2 
STARTED EXECUTION OP TABLE 5 TO OBTAIN VALUE OF DATA NUMBER 


SUSPENDED EXECUTION OF TABLE 5 AT CONDITION 7 OF RULE 7 
STARTED EXECUTION OF TABLE 6 TO OBTAIN VALUE OF DATA NUMBER 


SCANNING OF TABLE 6 IS COMPLETE. RULE NO. 2 APPLIES 


SUSPENDED EXECUTION OF TABLE 6 AT ACTION 1 OF RULE 2 
STARTED EXECUTION OF TABLE 14 FOR DIRECT EXECUTION 


SCANNING OF TABLE 14 YS COMPLETE. RULE NO. 3 APPLIES 


SUSPENDED EXECUTION OF TABLE 14 AT ACTION 3 OF RULE 3 
STARTED EXECUTION OP TABLE 17 FOR DIRECT EXECUTION 


SCANNING OF TABLE 17 IS COMPLETE. RULE NO. 1 APPLIES 


SUSPENDED EXECUTION OF TABLE 17 AT ACTION 1 OF RULE 1 
STARTED EXECUTION OF TABLE 18 FOR DIRECT EXECUTION 


SCANNING OF TABLE 18 IS CONPLETE. RULE NO. 1 APPLIES 
RESTART EXECUTION OF TABLE 17 AT ACTION 1 OF RULE 1 
RESTART EXECUTION OP TABLE 14 AT ACTION 3 OF RULE 3 


RESTART EXECUTION OF TABLE 6 aT action 1 OF RULE 2 


RESTART EXECUTION OF TABLE 5 AT CONDITION 7 OF RULE 


SUSPENDED EXECUTION OF TABLE 5 AT CONDITION 11 OF RULE 7 


97 


99 


7 


STARTED EXECUTION OF TABLE 20 TO OBTAIN VALUE OF DATA NUMBER 110 


SCANNING OF TABLE 20 IS COMPLETE. RULE NO. 2 APPLIES 


SUSPENDED EXECOTION OF TABLE 20 AT ACTION 1 OF RULE 2 
STARTED EXECUTION OF TABLE 21 FOR DIRECT EXECUTION 


SCANNING OP TABLE 21 IS COMPLETE. RULE NO. S APPLIES 


RESTART EXECUTION OF TABLE 20 AT ACTION 1 OF RULE 2 


RESTART EXECUTION OF TABLE 5 AT CONDITION 11 OF RULE 7 


SCANNING OF TABLE 5 IS COMPLETE. RULE NO. 7 APPLIES 


SUSPENDED EXECUTION OP TABLE 5 AT ACTION 7 OF RULE 7 
STARTED EXECUTION OF TABLE 7 POR DIRECT EXECOTION 


SCANNING OF TABLE 7 IS COMPLETE. ROLE NO. 7 APPLIES 


RESTART EXECUTION OF TABLE 5 AT ACTION 7 OF RULE 7 


RESTART EXECUTION OP TABLE 57 AT CONDITION 5 OF RULE 2 


SCANNING OF TABLE S57 IS COMPLETE. RULE NO. 2 APPLIES 


FIG. 8.24 COMPUTER OUTPUT FOR EXAMPLE 3 
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STABTED EXECUTION OP TABLE 65 
SUSPENDED EXECUTION OP TABLE 65 AT CONDITION 1 OF RULE 1 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 313 
STARTED EXECUTION OP TABLE 66 
SCANNING OF TABLE 66 IS COMPLETE. RULE NO. 1 APPLIES 
SUSPENDED EXECUTION OP TABLE 66 AT ACTION 1 OF RULE 1 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 215 
STARTED EXECUTION OF TABLE 4 
SCANNING OF TABLE 4 IS COMPLETE. RULE NO. 4 APPLIES 
RESTART EXECUTION OP TABLE 66 AT ACTION 1 OF RULE 1 
RESTART EXECUTION OF TABLE 65 AT CONDITION 1 OF RULE 
SCANNING OP TABLE 65 IS COMPLETE. RULE NO. 1 APPLIES 
RESTART EXECUTION OF TABLE 58 AT CONDITION 3 OF RULE 
SUSPENDED EXECUTION OF TABLE 58 AT CONDITION 3 OF RULE 2 
BEASON: MISSING INGREDIENT COPRESPONDING TO DATA NUMBER 299 
STARTED EXECUTION OF TABLE 62 
SCANNING OF TABLE 62 IS COMPLETE. RULE NO. 1 APPLIES 


SUSPENDED EXECOTION OP TABLE 62 AT ACTION 1 OF RULE 1 
STARTED EXECUTION OF TABLE 63 FOR DIRECT EXECUTION 


SUSPENDED EXECUTION OF TABLE 63 AT CONDITION 1 OF RULE 1 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 137 
STARTED EXECUTION OF TABLE 51 

SCANNING OP TABLE 51 IS COMPLETE. RULE NO. 1 APPLIES 

SUSPENDED EXECUTION OF TABLE 51 AT ACTION 2 OF RULE 1 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA HUNBER 195 
STARTED EXECUTION OF TABLE 55 

SCANNING OP TABLE 55 IS COMPLETE. RULE NO. 1 APPLIES 
RESTART EXECUTION OP TABLE 51 AT ACTION 2 OF RULE 1 
RESTART EXECUTION OF TABLE 63 AT CONDITION 1 OP ROLE 
SCANNING OF TABLE 63 IS COMPLETE. RULE NO. 1 APPLIES 


RESTART EXECUTION OF TABLE 62 AT ACTION 1 OF RULE 1 


FIG. 8.25 COMPUTER OUTPUT FOR EXAMPLE 3 
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SUSPENDED EXECUTION OF TABLE 57 aT ACTION 1 OF RULE 2 
STARTED EXECUTION OF TABLE 58 FOR DIRECT EXECUTION 


SUSPENDED EXECUTION OF TABLE 58 at CONDITION 1 OF ROLE 1 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 295 
STARTED EXECUTION OF TABLE 60 

SCANNING OF TABLE 60 IS COMPLETE. RULE NO. 1 APPLIES 
RESTART EXECUTION OF TABLE 58 AT CONDITION 1 OF RULE 1 

SUSPENDED EXECUTION OF TABLE 58 AT CONDITION 2 OF RULE 1 
REASON: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 298 
STARTED EXECUTION OF TABLE 67 

SCANNING OF TABLE 67 IS COMPLETE. RULE NO. 1 APPLIES 
RESTART EXECUTION OF TABLE 58 AT CONDITION 2 OF RULE 1 


SUSPENDED EXECUTION OF TABLE 58 AT CONDITION 3 OF RULE 2 
BEASOW: MISSING INGREDIENT CORRESPONDING TO DATA NUMBER 297 
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SUSPENDED EXECUTION OF TABLE 58 AT CONDITION 3 OF RULE 2 
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STARTED EXECUTION OF TABLE 68 

SCANNING OF TABLE 68 IS COHPLETE. RULE NO. 1 APPLIES 

RESTART EXECUTION OF TABLE 58 AT CONDITION 3 OF RULE 2 


SCANNIBG OF TABLE 568 IS COMPLETE. RULE NO. 3 APPLIES 


eeeee STRENGTH AND STABILITY CRITERIA SATISFIED. ¥#*#* 
RESTART EXECUTION OP TABLE 57 AT ACTION 1 OF RULE 2 
RESTART EXECUTION OP TABLE 56 AT ACTION 1 OF RULE 1 
RESTART EXECUTION OF TABLE 3 AT ACTION 6 OF ROLE 13 
RESTART EXECUTION OF TABLE 2 AT ACTION 1 OF RULE 1 
RESTART EXECUTION OF TABLE 1 aT ACTION 1 OP RULE 1 


FIG. 8.26 COMPUTER OUTPUT FOR EXAMPLE 3 


aNte4gh ¢ 
+) pap ae + || 


DATA VALUES AT THE END OF CYCLE NO. 
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FIG. 9.1 THE COMPLETE DESIGN PROCESS 
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APPENDIX A 
DECISION TABLE HEIRACHY CHARTS 
AND 
DECISION TABLE INDEX 


PUgs:. Asa to Atl present the heirachy charts 
of the decision tables in Appendix B. These charts 
illustrate the order of execution of decision tables when 
a particular task is performed. The full lines in the 
Charts represent direct execution and the broken lines 
represent conditional execution. 

Fig. A.12 provides an explanation of the 
decision table designation used in Figs. A.1 to A.11. 

A decision table index is provided in Fig. A.13 
where the table number for computer input is tabulated 
with the corresponding code designation. In referring to 
a decison table in the text, both systems of designation 
are used. For example, Dectson.fabje X.2 of Fig. A.1 is 
referred to as X.2(2) where the number in brackets 


indicates the computer input number for this table. 
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Table Number of Computer Input. (T is an integer 
number) 

Indicates a "Switching Table" which does not 
correspond to a Code section... 

The "Switching Table" number (m is an integer 
number) 

section or clause of the Code. 

Level 1 subtable designation (6 is either A or B ) 

Level 2 subtable designation (n is an integer 


number). 


Figos.12 | Explanation ofedable Designation 
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FIG. Al3 Decision Table Index 
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APPENDIX B 
GLOBAL DATA SHEETS, DATA DEPENDENT LISTS 


AND 
DECISION TABLES OF CSA S16.1 
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APPENDIX C 
USER VS GUIDE 


Introduction 

This appendix discusses the processing program 
limitations, Input/Output procedures for interactive and 
batch mode and contains a description of MTS files. The 


source programs are listed in Appendices D and E. 


C.1, Program Limitations 


(a) Interactive Mode 
Maximum number of tables = 120 
Maximum number of rules per table = 40 


Maximum number of ingredients per 


condition or action = 11 

Maximum number of data elements = 700 
(b) Batch Mode 

Maximum number of tables =) te 0 
Maximum number of rules per table = 40 
Maximum number of ingredients per 

condition or action = 9 
Maximum+number of data elements = 700 
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Batch Mode Control Cards 


SSIGNON XXXXXX P=[__] T=[__]_ PRIO= 


ie a be) 


PASSWORD 

$RUN *FORTG SCARDS=BATCHMODE+ROUTINE1+ROUTINE2+ 
ROUTINE3+ROUTINE4+ROUTINE5+ 
ROUTINE6+ROUTINE7+ROUTINES 

$RUN -LOAD# 8=CSAS16 

DATA DECK 

$SIGNOFF 

See Sect. C.5.5 for description of source and object 

files in item 3. 
see Sect. C.5 for MIS 1/0 Units insitem 4. 


see Sect. €.3 for contents of data deck in item 5% 


Data Input For Batch Mode 


(a) Control Cards: 


dal 14 
ai THEMAP FORMAT(T11,A4) 
THEMAP Prints out the contents of the permanent 


and temporary arrays. 


VES or a0 


tagtdo bis Ss97e0R” 
* 

d :, 5 maak 

so mont ia9b° 


" Foenemyeq- ang Vo etnganog ont due see GAMER oe ge 


4 : \ ” i Cea, 


re a. ‘aiued bas Bar 


r aoa | Rae i, a pe 
a | nee | OW so 23Y 2 NY hehe 
7 , fe o% : it Pey : y > vs 
t ‘ ae % 
p * - i oY 
i “a 2 
Pa, 
_ i ' ; Y - 


10 
(2) | 1save | ; FORMAT(1I10) 

ISAVE=] indicates decision table information has 
to. be input 

ISAVE=2 indicates decision table information has 
been processed from previous runs, and the 
following items 3 to 8 will not be 
necessary. This informationstorage 
capability, on average, saves 25 seconds 


of CPU time per run. 


(b) Decision Table Input: Items Gi) to, (5) "tobe 


supplied for each decision table. 


10 20 30 40. 


3) | if | a i | M eli NT | FORMAT (4110) 


T = decision table number 
LT = number of rules 
MT = number of actions 


NT = number of conditions 


] 5 1] 50 5] Vo 80 


(4) INDEX ENTRIES INGREDIENTS FLAG 


FORMAL (158 so houIk) 5 loon 1. Lb, 1 5.ok,40 On) 
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\" 


and ies | any. “suot vant 


ee ty 
‘vie | 


zhnose2 8S 29ve2 .aperave 2 ac 


ny 
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ay 
dal 
fl a 
i A. 


| os 


ad ot (2) of ey. Bese 


OTT) TAMAO § ne 


<‘admuid otdea. aotetoed 4 Ri nat 
eaten to vedinum CS ia 
enot doe. te nedmun » ™ 
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eae ei Seen cat 


if: [bale poe atu .aaaaial a). a 


f LOM ME eS be IT. (MeOH, ORE. OTe, TET) TAMA ae oe 


‘, 
4 e , - ; ‘ tenes alt 
i : : \ - ‘ ; wh : i. 
ee pes ; oa : eae, on wih tices owe |e A 
7 7 Y a 7 7 (¢.), ean en oe 
; ad * if \ ‘eK Lr fae ay uk 
te \ - - -_ 4 ' , , 7 q hh ay i in J 


INDEX = condition or action stub Subscript 

(condition stub: condition data Subscripts) 

(action stub: action data punscrinte: or 

blank if action is a message; 
Or a table number if action is 
to execute a table) 

ENTRIES = condition or action entries 

(condition entry: 1=YES 2=NO) 

(action entry: l= calculating value of 
an element or printing 
message 

2= execution of another 
table) 
INGREDIENTS = the data subscripts of condition or 


action ingredients 


FLAG 'c', if more ingredients on the next card 
= 'blank' if no more ingredients on the next 


card. 


(5) WReadithis card if LAG=c an4 
sa 79 


| | INGREDIENTS| y 


FORMATS 14 50141X) 214) 


(6) BLANK CARD 


this indicates the end of decision table input 
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h Pile 
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onidntng 19 ja gmbihy, Ae 

Sesezom 

xendone 10 nohsisana asst 

| fort ae 

10 not srbnaa, bis 0 enlbedue se - SCI 4oM 
ay atootbonoa so % i a 

has txen ot 0 “eansibsrpnt oxen tt ; erin ay on 

3x30 and ho eanarberent S108 on i ate : dare: Bi, 


‘ at s / ui i 7 yy 


(7) 


(11) 


(c) Data Element Properties: Item (7) to be supplied 


for each data element referenced by decision 
tables 
10 20 30 
atos [tao | wses]} — rommar(ari0 
KGLOB = data subscript 
TABDK = table number of KGLOB 
NSET 


BLANK CARD 


This indicates the end of the data element information 


mutually exclusive set number of KGLOB 


(d) Problem Data: Values of data elements required 


to define problem 


5 1] 20 


UikeLon | | oArRR I FORMAT(15,5X,F10.0) 


KGLOB = external input data subscript 


DATAK = corresponding data value. 


BLANK CARD 


This indicates the end of the external input data 
(e) Instructions for Execution: 
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TE RST FORMAT(1I10) 


Ny rte Roag re ve fer Ai, 
G0 SOX 40 admin, 82 ‘av felt Ke staan * 
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; y mt i Tae Sere eek ry Ns Pe 
potismvotnt Insmela Bs Sb Sas to bie td eadeotbat eid . 


iat 


beviupay esnsmgfayatbh: tO 290PeN) E 
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(0.074, x2 21 )TANAOR» an TAG fh 2 
. eee e360 > dant Tompnre » * 200% he 


uh 


si6b tugnt lenxatxs oad 9 bus afd aezeotbat 2taT 


of *, inotfupexd <o%) gn 


a ore a Tce an, 


e ‘ g =a i : ‘ 7 7 
ie ; ae, 


bie a! i‘. ate i ay: ) o> ae 
a2 a i ee He ery: ; ao) = ee ie 
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TFIRST = the number of first decision table to be 
executed 
La 14 
C12) P ao iereace en FORMAT(T11,A4) 
TRACE = 'YES', if a trace of the tables executed for 
| the problem is desired. 


= | NO, 5,7f-no. trace, is).desired. 


1] 14 
Bisa WARAY) "eae FORMAT(T11,A4) 
WARAY = ‘YES', if listing of compacted arrays is 
desired 


= 'NOy dfs not lasting) is: desired 


A schematic arrangement of the batch-mode input 


cards as i lustrated in Fig. 26. in 


C.4 Interactive Mode Control Commands 
$signon XXXX 
password 
$run obcombine 5=filenamel 9=filename2 8=filename3 
2=filename4 6=*print* 4=*source* 


7=*sink* 


For details on I/0 units: 


1/0) unitrbsaeitsee Sect&. €.5.1) 


ae ee 


‘ad ot sides otatons aaa 
‘“, “me | el call 

| “onsementamay { 
107 posuoaxs zatdes ede 30 gosta 8 tt i " 
| baviesb: iat st ee ig 
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bert 296 eh sostt ona ean 
hei a ey “ee 


aa 
- 


(Ay rT) TAMHOR 


>} 2VBNVE pad aeume> 70, entiert ie ceay hid 


| | ri } ey NV Nes 3 
peitesb at P goth ——- , sane 
4 f ae Ra Fan a +S oi nt ie ane ae i , . 
| an ae Piet) | \ 


“doqat: obonied tee its By snemsriers oismonor A 
. of AL easel we 


ion hie con ame Pak: 
ei wane nti 
‘ | i) | ; broweana 
Esmingttt=8 Sema (tHe Famers fit=e ant dnordo uit ty) 
te >ony Oe BP kin vge= Ha bamsnott?s oe hl | . ih 
eae hy i) aie 

| pe mative i | ) | 
-etinv O\T mo efhszeb 20: te 
“) 2) abe cabeR abe) 2 staw OVD SL 


; — . <a '* get 
‘|! - Pipi 


eae) 


I/O unit 2 (see Sect. C.5.3) 
I/O UNI eOSA (see Sect. €.5.2) 
1/0 unit 8,6,4,7 (see Sect. C.5.4) 


The files associated with the I/0 units are discussed in 
Sect. C.6. If decision table and data property information 
has already been processed and stored, the only data 
required to execute a problem are those associated with 


LAQ. units '5,l and 2. 


C.5 I/0 Units For Interactive Mode 


(Note: For definition of variable names see Sect. Cl3): 


G29.1° Data In E/0 Unit 5 
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(1) | TFIRST | $ 
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waiacuwat a va 794034 | eh 
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Agstw bosetaozes a2o1d) 346 


xe 
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C.9.2 ‘Data An T/0--Units9 


This file contains decision table information 


and data properties in coded form. 


10 20 30 40 
a [etn 
] 5 11 50 51 79° "80 
(2) INDEX ENTRIES INGREDIENTS FLAG 


a 79 


(3) | Co ae '| inereorenTs | 
(4) BLANK CARD | 


10 20 30 


(5) KGLOB |TABDK | NSET 
(6) BLANK CARD 


Gao...3) Data in). // 0) Uaioe 


1] 14 


vi i ¥ 
oe, meet 
| Pea 
a te pe rua fs Cae aka ke 
‘ Tat stat C1896 on 
7 ‘ 7. f ee, we 
iy aan a ti 
re ) : omen. 


; aH AG Sill 
: ‘Me 4 vd tare nS 
mi 4 . | (ft) al : nee 
1 - 1 
. . { ; ae 0 ri ie ~ ; ih 4 
i. hitae Wal 
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@ [swe D3 


C.5.4 Data In I/O -Units8.56. 4. 7 


TO. Unite: Bee The file which this unit refers to 
contains the processed decision table 
information in compacted binary form. 

1/0; Unit 6 = 6.> *print* refers. to, output for the 
line printer. 

I/0 Unit 4 - 4 = *SOURCE* refers to input from the 
terminal. 

I/O Unit 7 - 7=*sink* refers to output for the 


terminal. 


C.6 Description Of MIS. Files 
(a) OBCOMBINE - this file 15 an MTS: control file: The 


contents of Which is. listed in, Fig: 
Covenue liste JS,uneoo ject. forme 

(b) OBCOMBINER - this file is used with the recursive 
execution scheme. It's contents and 
function are similar to that of 
OBCOMBINE.. A Jasting. of. this. file as 
presented in Fig. C.3. 

(c) DECIDATAI - this file contains coded but unpro- 


cessed decision tables and data 


oe aaetbn. Siwy ‘dea pe att. “ 
erre notztosb bazesoorq ant entntngs 
: mvot yvedid badosaiios, at sorssavotat 
adé 0? swasvo. ot evetay ‘aningt * a 
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(d) 


(i) 


DECIDATAIR - 


CSAS16 - 


CSASI6R - 


MAPNSAVE - 


BATCHMODE - 


LUB - 


Property information. It is refer- 
enced by I/0 unit 9 during execution. 
this file is used with the recursive 
execution scheme. Its content ands 
function are similar to that of 
DECIDATAI. 

this file contains processed decision 
tables and data property information 


in binary form. It is referenced by 


I/0 unit 8 during execution. 


this file is used with the recursive 
execution scheme. Its content and 
function are similar to that of 
CSAS16. 

this file contains the values of 
variables THEMAP and ISAVE (Sect. 
Grn oye 

this file contains the subroutines 
SPECHK, SETUP. SINDREAL, SETS, GUTPRUF 
and STAK in source form for batch 
mode execution. 

this file contains the external input 
data for example 1 in Sect. 8.1. A 
listing of this file is presented in 
Fig. C.4. The file is referenced by 
EO wit Sor 
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(j) AXCOM - this file contains the externally 
input data for example 2 in Sect. 
Si2mi A listing of "this: file is 
presented- in. fig: €25. The file is 
referenced by I/0 unit 5. 

(k) COMBEN - this file contains the externally 
input data for example 3 in Sect. 
Oi 3 oA Metin of this. frie ws 
presented: in Fig. C.6. The file is 
referenced by I/0 unit 5. 

(1) ROUTINE? TO ROUTINES - these files contain the 
condition and action subroutines of 
the decision tables compiled in 


Appendix B. 
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JGOW HOLVS 


LNIN) yLyd 92L s1g/73dS () 


Sg/Laeadoad 
meyT LNaWwHe2d (Y) 


LNdn) S71L23d0%d 
s97gvL NoOISAG (OH 


$list obcombine 


1 $CONTINUE WITH 
2 $CONTINUE WITH 
3 $CONTINUE WITH 
4 $CONTINUE WITH 
5 $CONTINUE WITH 
6 $CONTINUE WITH 
7 $CONTINUE WITH 
7.1 $CONTINUE WITH 
8 $CONTINUE WITH 
9 $CONTINUE WITH 
10 $CONTINUE WITH 
11 $CONTINUE WITH 
12 $CONTINUE WITH 
13 $CONTINUE WITH 
14 $CONTINUE WITH 
LS $CONTINUE WITH 
END OF FILE 


OBSPECHK RETURN 
OBSTAK RETURN 
OBSETUP RETURN 
OBINITIAL RETURN 
OBINPUT RETURN 
OBSETS RETURN 
OBOUTPUT RETURN 
OBREADIN RETURN 
OBROUTINE1 RETURN 
OBROUTINE2 RETURN 
OBROUTINE3 RETURN 
OBROUTINE4S RETURN 
OBROUTINES RETURN 
OBROUTINE6 RETURN 
OBROUTINE7 RETURN 
OBROUTINE8 RETURN 


FIG: C2 SPIRE OB COMBINE 


$list obcombIner 


> 1 $CONTINUE WITH 
> 2 $CONTINUE WITH 
> 3 SCONTINUE WITH 
> 4 $CONTINUE WITH 
> 5 $CONTINUE WITH 
> 6 $CONTINUE WITH 
> 7 $CONTINUE WITH 
> 8 $CONTINUE WITH 
> 8.1 $CONTINUE WITH 
? ) $CONTINUE WITH 
> 10 $CONTINUE WITH 
> ake $CONTINUE WITH 
> 22 $CONTINUE WITH 
> 13 $CONTINUE WITH 
> 14 $CONTINUE WITH 
> 15 $CONTINUE WITH 
> 16 $CONTINUE WITH 
#END OF FILE 


OBSPECHKR. RETURN 
OBSTAK RETURN 
OBSETUP RETURN 
OBINITIAL RETURN 
OBINPUT RETURN 
OBSETS RETURN 
OBOUTPUT RETURN 
OBREADIN RETURN 
OBCLEAR RETURN 
OBROUTINE] RETURN 
OBROUTINE2 RETURN 
OBROUTINE3 RETURN 
OBROUTINEGYR RETURN 
OBROUTINE5R RETURN 
OBROUTINE6 RETURN 
OBROUTINE7 RETURN 
OBROUTINE8R RETURN 


FIGs €.38- FILE OBCOMBINER 
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$list axcom 


> 1 . 

> 2 1, LO, 

> 3 10, L150) 

> 4 23, 1.0, 

> 5 25, 0.0, 

> 6 46, 16.7, 

> 7 58, T2655, 

> 8 59, 8.0, 

> 9 76, 4.0, 

> 10 78, 29000.0, 
> ha 119, 1207 

> 2 2b 0.0, 

> 13 122 172.0, 

> 14 2; Lz0% 

> 15 124, 1.0; 

> 16 125, 1.0, 

> 17 166, 1.0, 

> 18 179, 1.0, 

? 19 186, 144.0, 
> 20 188, 2.42, 
> 21 197, 0.9, 

> 22 208, 2.54, 
> 23 216, 144.0, 
> 24 400, 0.9, 

> 25 401, 1.25, 
> 26 402, 9 Ea 

> 27 403, 1.5, 

> 28 4O4, a oo, 
> 29 405, Leu, 

> 30 406, 300.0, 
> 31 407, 85.0, 
> 32 408, 0.0, 

> 33 409, 0.0, 

> 34 220, Leu, 

> 35 221, 1.0, 

> 36 0, 

> on YES 

> 38 YES 
#END OF FILE 


FIG. C.5 DATA FILE AXCOM 
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APPENDIX D 


INTERACTIVE MODE PROCESSING PROGRAM 
- SOURCE LISTING 


This appendix presents a source listing of the 
Main routine and the subroutines of the processing 
program for interactive mode procedure. In order to 
conserve space, the condition and action subroutines of 
each decision table are not presented. An example of 


them is presented in Fig. 5.5. 
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$LIST SPBCHK - 


WwOWIAMEWN@ 


cc 
cc 
cc 
c 

cc 
c . 


a 


aA-AAaAA 


aaa 


¢ 


110 


100 


710 


102 


900 
902 


904 
906 
908 
910 
912 
914 
916 


918 


920 
922 
924 
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THIS IS THE HAIN SUBROUTINE DOLWG THE BULK OF DECISION TABLE 
PROCESSING INCLUDING IDENTIFYING THE APPLICABLE RULE, 
AND CHECKING THE PRESENCE OF DATA ETC. 


DECLARATIONS 


IMPLICIT LOGICAL®1 (P), INTEGER*2 (I-N) 

INTEGER*2 STACK, ENTRY,T,TABNO,TABD,TABDK, TFIRST, THPSET 
COMMON /HICA/DATA,PRD 

COMMON /MNSTUP/LARRY1, LARRY2,LARRY3,LARRYG,LARRY5S, LARRY6, I BASE, 
1 IPNTRC, IPNTRA,TABD,L,M,U,TeTPIRST 

COMMON /MNSTIN/ISET, HEXSET, MARCA, TRACE, THEAAP 
COMMON/STUPIN/ICLEAR,IARROW 
COMMON/STINTL/INDEX, ENTRY, INGR, IDEPND, THPSET 
COMMON/MINCE/ICYCLE 

COMMON/DUNB/WARAY 

DIMENSION 

1 LARRY1 (600) , LARRY2 (600) , LARBY3 (5000) , LARRY4 (5000) , IBASE(120,4), 
2 LARRY5( 600), LARRY6( 600) , IPNTRC (600) , IPUTRA (600) , 
3 DATA (700) ,PRD(700) , TABD (700) , ISET (700) , 
GL (120) ,4 (120) ,N(120) , STACK (20,5) , RESULT ( 2) 

DIMENSION MEXSET (150) , MARCA (100) , IARROW (700) , ICLEAR (2000) 
DATA YES/*YES*/,NO/*HO'/ 

READ IF A SNAP OP PERMANENT DATA STORAGE IS DESIRED OR WOT 
READ(2,110) THEMAP 

PORMAT (T11, AS) 

IF ISAVE=1, ENTER SUBROUTINE SETUP,CALCULATE DECISION TABLES 
PERMANENT DATA,THEN STORE IW UNIT 8B 

IF ISAVE«2,SKIP SOBROUTINE SETUP,READ DECISION TABLES 
PERMANENT DATA PROM UNIT 6 

READ(2,100) ISAVE 

PORMAT (110) : 

CALL SETDSR (8, 11000, 11000) 

GO TO (700,710) , LSAVE 

CALL INTIAL 

READ (8) LARRY1,LARBY2,LARRYS,LARRY6,IPWTRC,IPHTRA 

READ(8) LARRY3 

READ (8) LARRY 

READ(8) ISET,TABD,L,U,N,TFIRST, I BASE 

READ (8) MEXSET,MARCA,TRACE, ICLEAR, IARROW 

WHEN ISAVEs2 

READ TPIRST FROM UNIT S AGAIB IW CASB If IS DIFFERENT 

THAN THAT READ FROM UNIT 8 

READ (5,102) TFPIRST 

PORHAT (I 10) 

IF WARAY BQUAL YES,WRITE THE ARRAYS IF STATAEWT 900 TO. 928 


IP (WARAY.NE.YES) GO TO 730 

WRITE (6,900) (LARRY1(I) -1=1,600) 

PORMAT (1H1,5X,* LARRY1°//30(5X,1015,5K, 1015/)) 
WRITE (6,902) (LARRY3(I) -t=1,5000) 

FORMAT (1H1,5X,"LARRY3°//50 (5X, 10(10L1,1X)/)) 
WRITE (6,904) (LARRY2(I) ,1=1,600) 

PORMAT (1H1,5X,*LARRY2°//30 (SX, 1015, 5X, 1015/)) 
WRITE (6,906) (LARRY4(I) ,1=1,5000) 

PORMAT (1H1,5X,*LARRY4'//50 (5X, 10( 1011, 1X) /)) 
WRITE (6,908) (J, (IBASE (I,J) -I=1, 120) ,J=1, 4) 
FORMAT (1H1/4 (5X, ¢IBASE' 4 11//6 (5X, V0IS 5X4 V0L5/)////)) 
WRITE (6,910) (LARRYS (I) ,1=1,600) 

PORMAT (1H1,5X,"LARRYS'//30 (5X, 1015,5X, 101S/) ) 
WRITE (6,912) (LARRY6(I) ,I=1,600) 

FORMAT AHNASKe* UARANS 96Aa0 (92-5015 /5Ke 4025/7) 
WRITE (6,914) (IPNTRC(I) -I=1, 

PORKAT (181, 5K,* IPNTRC'/7/30 (SE, 1015 5%, 1015/)) 
WRITE (6,916) (IPNTRA(I) -I=1, 

Mesa ae  (1H1,5X,*1PNTHA'//30 (SX, 1015, 5K, 10I5/) ) 
WRITE (6,918) (IARROW(1) ,1=1,700) 

PORMAT (1H1,5K, *IARROW'/35 (5X, 1015,5X, 1015/)) 
WRITE (6,920) (ICLEAR(I) -I=1,2000) 

FORMAT (1H1,5X,°ICLEAR'//20 (5 (5X, 1015 ,5X, 1015/) /)) 
WRITE (6,922) (MEXSET(I) ,I=1,150) 

PORMAT (1H1,20X, "MEXSET®/15 (20K, 1015/)) 

WRITE (6,924) (MARCA(I) ,1=1, 100) 

FORMAT (1HO,20X' MARCA’ /5 (20X, 10I5/)) 

GRITE (6,926) (ISET(I) -I=1,700) 
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926 PORMAT(1H1,5K,*ISET°/35 (5X, 1025, 5%, 1015/)) 


WRITE (6,928) (L(I) -Y=1, 120) 


928 FORMAT (1H1,20X,"ARRAY L*/12(20X,1015/)) 


GO TO 730 


700 CALL SETUP 
730 ICYCLE = 1 


1 CALL INPOT (ICYCLE) 
PRINT DATA AGAIN TO CHECK ITS VALIDITY 
WRITE (6,799) 


799 PORMAT (1H1,15X,°DATA PRINTED AGAIN FOR CHECKIWG. ONLY °, 


1 "THAT DATA WHICH HAS A VALUE IS REPRODUCED HERE’ // 
2 31X,"KGLOB*,10X, "DATAK®, 10X,°PRD*//) 

DO 801 KGLOB = 1,700 

IF (.NOT. PRD(KGLOB)) GO TO 601 

WRITE (6,800) KGLOB, DATA (KGLOB) ,PRD (KGLOB) 


800 PORMAT (25X%,110,1X,F1%.6,5X,L7) 


601 CONTINUE 
GIVE A SESSAGE THAT EBXZCUTION OF CYCLE BUABER (= ICYCLE) IS ABOUT 


fO COSHENCB 
WRITE (6,172) ICYCLE,TPIRST 


172 PORMAT (181, 10X%,°CYCLE WOMBER®,I3, SX,°S* START*, 


1 * EXECUTION WITH TABLE’ ,I4,° Sees) 
INITIALISE BEPORE STARTING EXECUTION OF THE TABLES 
TRUE = 1.0 
T = TPIRST 
ISTACK = 0 
TABNO = 0 
w3Is 1 
191 = 1 
GET THE ADDRESS OF THE CONDITION ENTRY 
24 IJ = IBASE(T,3) ¢ (3-1) ¢N(T) ¢ I 
IP THE CONDITION EWTRY IS IMMATERIAL, SKIP CHECKING If 
IP (LARRY3(IJ) .EQ- 0) GO TO 52 
25 11 = IBASE(T,1) + I 
KGLOB = LARRY1(I 1) 


PIRST CHECK IF THE CONDITION HAS BEEN SUPPLIED WITH ITS VALUE 


Cc 
2006 IF (PRD(KGLOB)) GO TO 50 


CHECK IPF ANY OTHER TABLE CAW BE EXECUTED TO GET THIS CONDITION 
IP (TABD(KGLOB) .NE. 0) GO TO 45 

OTHERWISE SEE IF THIS CONDITION CAN BE ESTABLISHED BY 
SUBROUTINE CC OF THIS TABLE. THIS IS INDICATED BY 

HAVING ATLEAST ONE INGREDIENT POR THIS COMDITION 

IP ((IPNTRC(I1#1) - IPNTRC(I1)) .NE. 0) GO TO 13 

ELSE AN ERROR MESSAGE 


12 WRITE (7,174) I,T,KGLOB 


174 FORMAT (1HO,10X,*CONDITION NUNBER®,I3,°OF TABLE °,13, 


1 °IS NOT AVAILABLE. THIS CORRESPONDS TO DATA WUMBER’,I86/ 
2 11X,*SUBROUTINE READIN IS CALLED TO IWPUT THIS DATA ITBH*) 


NUSBER=1 


2000 KG=KGLOB 


CALL READIN (KG, NUMBER, KGLOB) 
IF (KG.NE.KGLOB) GO TO 2004 
GO TO 2006 


2004 WRITE (7, 1000) 
1000 PORNAT(1X,"YOU HAVE INPUT THE IWCORRECT VALUE OF KG*, 


c 
cc 
c 


@ © PLEASE TRY AGAIU.GOOD LUCK‘) 
GO TO 2000 . 


CHECK IF ALL THE INGREDIEBTS OF THIS CONDITION ARE PRESENT 


13 IR = IPWTRC(I1) ¢ 1 
23 IDATA = LABRY5 (IR) 
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147 
1486 
149 
150 
151 
152 
153 
154 
155 
156 
157 
1586 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
161 
182 
183 
164 
185 
166 
167 
168 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
-203 
204 
205 
206 
207 
208 
209 
210 
21% 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 


2007 IP (.WOT. PRD(IDATA)) GO TO 39 


AS 


wervoeodaAu#t &@e & 


209 
21¢ 
211 
212 
213 
214 
215 
216 
217 
218 
219 
221 
222 
223 
228 
225 
227 
229 
231 
244 
245 
248 
249 
258 
259 
261 
263 
264 


IR = IR¢ 1 
IP (IR .LE. IPNTRC(I1#1)) GO TO 23 


A WORMAL EXIT FROM THIS LOOP INDICATES THAT ALL THE 
DATA WECESSARY TO SET THIS CONDITION IS PRESENT AND SO 
ITS SUBROUTINE CC CAN BE CALLED 


GO TO (888,868,888, 888, 6868, 988,688,888, 209,210, 
211,212,213,214,215,216,217, 218,219, 888, 
221,222,223, 224,225,888, 227,888, 229,888, 
231,868,688 ,888,886, 886,888, 888, 688,886, 
888,888,888, 244, 245,888,888, 248, 249,888, 
888,888,888, 888,888, 888,688, 258,259,888, 
261,888, 263, 26%, 265,888,888, 688, 868,885, 
888, 272,888,274, 688,276,277 -888,279,888, 
281,262,888, 284,888,286, 287,888,888, 290, 
29 1,888, 888, 888, 888,888, 297,686,888 ,086, 
988,868,888,888, 886, 866,888, 688, 868,888, 
888,888,868, 868, 886, 088,886,608,688,888) ,f 

CALL CC9 (I) 

GO TO 41 

CALL CC10(I) 

GO TO 41 

CALL €C11(1) 

GO TO 41 

CALL CC12(I) 

GO TO 41 

CALL €C13(I) 

GO TO 41 

CALL CC14 (I) 

GO TO 41 

CALL CC15(I) 

GO TO 41 

CALL CC16 (TZ) 

GO TO 41 

CALL CC17(I) 

GO TO 41 

CALL CC18(%) 

GO TO 41 

CALL CC19 (LI) 

GO TO 41 

CALL CC21(1) 

GO TO 41 

CALL CC22(I) 

GO TO 41 

CALL CC23(I) 

GO TO 41 

CALL CC24(r) 

GO To 41 

CALL CC25 (1) 

GO TO 41 

CALL C€C27 (I) 

GO TO 41 

CALL €C29 (I) 

GO TO 41 

CALL CC31 (I) 

GO TO 41 

CALL CC44 (I) 

GO TO 41 

CALL CC45 (I) 

GO TO 41 

CALL CC48 (I) 

GO TO 41 

CALL CC49 (I) 

GO TO 41 

CALL CC58(I) 

GO TO 41 

CALL CC59 (I) 

GO TO 41 

CALL CC61(Z) 

GO TO 41 

CALL CC63 (I) 

GO TO 41 

CALL CC64 (I) 

GO TO 41 


223 


~ 


223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 


296 


247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 


265 CALL CC65 (I) 
GO TO 41 
272 CALL CC72(I) 
GO TO 41 
274 CALL CC74 (1) 
GO TO 41 
276 CALL CC76 (1) 
GO TO 41 
277 CALL CC77 (I) 
GO TO 41 
279 CALL CC79 (I) 
GO TO 41 ; 
281 CALL CC81 (I) 
GO TO 41 
262 CALL CC62(I) 
GO TO 41 
26% CALL CCce4 (I) 
GO TO 41 
286 CALL CC86 (I) 
GO TO 41 
287 CALL CC87 (I) 
GO TO 41 
290 CALL CC90 (I) 
GO TO 41 
291 CALL €C91(I) 
GO TO 41 
297 CALL CC97 (1) 
GO TO 41 
688 WRITE (6, 1888) T 


1888 PORMAT (1HO,10X,°ERROR SITUATION. ATTEMPT TO CALL SUBROUTINE CC®, , 


1 13,°WHERE IT IS NOT SUPPOSED TO BE SO°/11X,°HO SUCH °, 
2 "SUBROUTINE EXISTS*) 
WRITE (7,1889) Tf ; 
1689 PORHAT(10X,*ERBOR SITUATION. ATTEMPT TO CALL SUBROUTIWE CC’, 
¢ 13,°WHERE IT IS NOT SUPPOSED TO BE SO*°/11X,°HO SUCH’, 
® "SUBROUTINE EXISTS") 
GO TO 76 
c CHECK IP THE CONDITION HAS GOT ITS VALUE HOW ‘ 
CD 81 WRITE(6,444) KGLOB,DATA (KGLOB) , PRD (KGLOB) 
CD444 PORMAT(1X,"DATA CHECK JUST BEFORE STATEMENT 41 IB SPECHK*// 
cD 120X,110,1X,F714.4%,5X,1L7) 
41 IP (PRD(KGLOB)) GO TO 50 
GO TO 12 


cc POLLOWING IS A CHECK WHETHER THE MISSING INGREDIENT 
cc IS OBTAINABLE BY EXECUTING AWY TABLE 


39 IP (TABD(IDATA) .NE. 0) GO TO 46 
ce WRITE THE ERROR MESSAGE THAT THIS DATA IS BOT AVAILABLE 


WRITE (7,112) IDATA 
112 PORMAT (1H0,10K,°ERROBR MESSAGE; DATA BUBBER’ ,I5/ 

1°IS NOT AVAILABLE.THIS IS AW IMGREDIEWT OF A CONDITION’) 
NUNBER=2 

2008 KG=IDATA 
CALL READIN (KG, NUMBER, IDATA) 
IF(KG.NE.IDATA) GO TO 2010 
GO TO 2007 


2010 WRITE (7, 1020) 
1020 PORMAT(1X,*YOU HAVE INPUT THE IWCORRECT VALUE OP KG‘, 


* © PLEASE TRY AGAIN.GOOD LUCK‘) 
GO TO 2008 
@6 TABNO = TABD(IDATA) 


cc START THE STACKING PROCEDURE TO EXECUTE THE APPROPRIATE TABLE 
cc THE VALUE OF IFLAG = 1 INDICATES THAT THB STACKING IS REQUIRED 


cc BECAUSE OF SOHE MISSING INGREDIENT OF A CONDITION 


IFLaG = 1 
CALL STAK (STACK, ISTACK, IFLAG,T,I,J, IR, TABNO,IDATA, TRACE) 


GO TO 18 


cc START THE STACKING PROCEDURE TO EXECUTE THE APPROPRIATE TABLE 
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297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
365 
346 


347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 


cc THE VALUE OF IFLAG = 2 IWDICATBS THAT THR STACKIBG 
cc IS REQUIRED BECAUSE THE MISSING CONDITION IS OBTALWABLE 
cc BY EXECUTING SOKE OTHER TABLE 


c 
65 TABNO = TABD(KGLOB} 
IFLAG = 2 
IDATA = 0 ! 
CALL STAK (STACK, ISTACK,IPLAG,T,1,3,KGLOB,TABNO “DATA,TRACE) 
GO TO 18 
Cc 
cc HATCH THE RULE 
Cc 
50 IP (LARRY3(Id) .2Q. 1 .AND. DATA(KGLOB) .WE. TROUZ) GO TO SS 
IPF (LARRY3(IJ) .BQ. 2 -AND. DATA(RGLOB) 220. FRUF) GO TO SS 
Cc 
cc CONTINUE MATCHING CONDITIONS IW THIS RULB 
Cc 


CD 52 WRITE (6,440) I 
CD440 PORMAT(1X,°AT STATEMENT S2 IN SPECHK,THE COMDITIOW HO. IS*, 
cD *5x,13) 
$2 IP (I .£Q. u(t)) GO TO 31 
I = 161 
GO TO 24 
Cc CONTINUE THE SEARCH WITH THE WEXT RULE 
5S IF (J.£0. L(T)) GO TO 30 
3 = 3+1 
cD WRITE (6,445) J 
CD445 PORMAT(1X,"AFTER STATEMENT 55 IN SPECHK,THE RULE WO. IS*,5X,13) 


GO TO 19 
Cc 
cc MESSAGE FOR UNSUCCESSPUL MATCH IW THE TABLE 
Cc 


30 WRITE (6,130) T 
130 FORMAT (1H0,10X,°NO RULE IN TABLE*,I4%,° IS MATCHING °, 
1 "THE CONDITION STOUB'/11%,* CYCLE TERMIWATED*) i 
WRITE (7,132) T 
132 PORMAT(10X,"NO RULE IN TABLE®,1&,°IS MATCHING °, 
@ "THE CONDITION STUB°/11X,° CYCLE TERMIBATED') 
GO TO 76 


cc THE APPLICABLE RULE HAS BEEW IDEWTLFIED 
cc CHECK IF THIS INFORMATION IS DESIRED TO BE PRINTED OUT 


31 IP (TRACE .WE. YES) GO TO 57 
WRITE (6,177) TI 


177 PORRAT (1H0,15X,"SCANNING OP TABLE °,I13,° IS COMPLETE. RULE %. . 


1 °HO.*,13," APPLIES") 


c 
cc BOW FIUD WHICH ACTION ETRY TS APPLICABLE 
ce CODE: 0 FOR WO ACTION, 1 POR CONDITIOBAL BVALUATION, 


cc 2 FOR DIRECT EXECUTION ACTIONS AWD 3 POR THE BLSB RULE 


$7 Ks 1 

58 KJ = IBASE(T,4) ¢ (J-1)*H(T) * K 
IPLAG = LARRY4S(KJ) + 2 
K1 = IBASE(T,2) * K 
GO TO (49,59,69,79,89) ,IPLAG 


cc THE FOLLOWING IS A DUMMY STATEMENT ABD SHOULD BEVER BE REACHED 


89 STOP 
cc CONDITIONAL EVALUATION 
69 KGLOB = LARRY2(K1) 


cc BEFORE CALLING SUBROUTIVE AA OF THIS TABLE, CHECK IP 
cc THERE ARE ANY INGREDIEWTS FOR THIS ACTION. 
cc IF YES, THEN CHECK THEIR PRESENCE 


IP ((IPUTRA(K1¢1) - IPWTRA(K1)) .BQ. 0) GO TO 93 
IR = IPNTRA(K1) * 1 
27 IDATA © LARRY6 (IR) 
2011 IF (.NOT. PRD(IDATA))+GO TO 35 
16 IR = IR + 1 
IP (IR .LE. IPNTRA(K1¢1)) GO TO 27 
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503 
504 
505 
507 
508 
509 
510 
511 
$12 
513 
514 
515 
516 
518 
519 
521 
522 
$23 
524 
525 
$26 
527 
528 
529 
530 
531 
$32 
$42 
$83 
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& WORHAL ZXIT FROM THIS LOOP INDICATES THAT ALL THB. 
INGREDIENTS NEEDED POR EVALUATING THIS ACTION ARB PRESERT 
AUD SO SUBROOTINE AA FOR THIS TABLE CAN BE CALLED 


GO TO (999,999,503, 504,505,999,507,508, 509, 510, 
511,512,513,514,515,516,999,5 18,519,999, 
521,522,523,528, 525,526,527, 528, 529, 530, 
531,532,999,999,999, 999,999,999,999,999, 
999,542,543,544,545, 546,547,548, 549,550, 
551,552, 553,554,555,999,557,558,559,560, 
561,562,563, 564,565, 566,567,568, 569,570, 
57145724 5736574,575, 5765577 4578,579 580, 
581,582,999 ,584,585, 586,587, 588,589,590, 
59 1,592,593, 598,595,596 .597,598,999,999, 
999 ,999,999,999,999,999,999, 999,999,999, 
999,999,999,999,999,999,999,999,999,999) ,f 

CALL AA3(K) 

GO TO 60 

CALL AAG (K) 

Go TO 60 

CALL AAS(R) 

GO TO 60 

CALL AA7(R) 

GO TO 60 

CALL AA (K) 

GO TO 60 

CALL AA9 (R) 

GO TO 60 

CALL AA10 (R) 

GO TO 60 

CALL AA11(R) 

GO TO 60 

CALL AA12(R) 

GO To 60 

CALL AA13 (R) 

GOTO 60: 

CALL AA14 (R) 

GO TO 60 

CALL AAS (Rj 

GO TO 60 

CALL AA16(R) 

GO TO 60 

CALL AAV8 (K) 

GO TO 60 

CALL AA19 (R) 

GO TO 60 

CALL AA21(R) 

GO TO 60 

CALL AA22 (K) 

GO TO 60. 

CALL AA23 (R) 

GO TO 60 

CALL AA24(R) 

GO TO 60 

CALL AA25 (R) 

GO TO 60 

CALL AA26 (R) 

GO TO 60 

CALL AA27 (KR). 

GO TO 60 

CALL AA286 (K) 

GO TO 60 

CALL AA29 (R) 

GO To 60 

CALL AA30(R) 

GO TO 60 

CALL AA31 (RK) 

GO TO 60 

CALL AA32 (K) 

GO TO 60 

CALL AAG2 (K) 

Go TO 60 

CALL Aa43(K) 


447 
448 
449 
450 
451 
4$2 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
G65 
966 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
882 
463 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
994 
495 
496 


544 
$45 
546 


547 


548 


$49 


550 
551 
552 
553 
554 
555 
557 
558 
559 
560 
561 
562 
563 
568 
565 
566 
567 
568 
569 


GO TO 60 
CALL AAG (K) 
GO TO 60. 
CALL AASS (K) 
GO TO 60 
CALL AA46(K) 
GO TO 60 
CALL AAS7(R) 
GO TO 60 
CALL AAGS (RK) 
GO TO 60 
CALL AAU9(K) 
GO TO 60 
CALL AA5O(K) 
GO TO 60 
CALL AAS1(K) 
GO TO 60 
CALL AAS2(K) 
GO TO 60 
CALL AA53(R) 
GO TO 60 
CALL AAS4 (K) 
GO TO 60 
CALL AAS5(R) 
GO TO 60 
CALL AAS7(R) 
GO TO 60 
CALL AAS8(K) 
GO TO 60 
CALL AAS9 (KR) 
GO TO 60 
CALL AA6O(K) 
GO TO 60 
CALL AA61(K) 
GO TO 60 
CALL AA62(R) 
GO TO 60 
CALL AA63 (KR) 
GO TO 60 
CALL AA64 (RK) 
GO To 60 
CALL AA65(K) 
GO TO 60 
CALL AA66 (K) 
GO TO 60 
CALL AA67 (RK) 
GO TO 60 
CALL AA68(K) 
GO TO 60 
CALL AAG9(K) 


497 
498 
499 
500 
501 
$02 
$03 
504 
505 
506 
507 
508 
509 
510 
51% 
512 
$13 
514 
$15 
$16 
$17 
518 
$19 
$20 
$21 
$22 
$23 
$24 
$25 
$26 
§27 
528 
$29 
530 
531 
532 
$33 
534 
535 
$36 
$37 
538 
539 
540 
$41 
542 
543 
546 
545 
546 


$70 
571 
S72 
$73 
574 
575 
576 
577 
$78 
579 
$80 
$861 
582 
584 
585 
586 
587 


588 


589 
590 
591 
$92 
$93 
5948 
$95 


GO TO 60 
CALL AA70(K) 
GO TO 60 
CALL AA71(R) 
GO TO 60 
CALL AA72 (R) 
GO TO 60 
CALL AA73(R) 
GO TO 60 
CALL AA74 (R) 
GO TO 60 
CALL AATS (R) 
GO TO 60 


CALL AAT6 (R)- 


GO TO 60 
CALL AA77(R) 
GO TO 60 
CALL AA76 (KR) 
GO TO 60 
CALL AAT79(R) 
60 TO 60 
CALL AAGBO(R) 
GO TO 60. 
CALL AAB1(R) 
GO TO 60 
CALL AA82 (R) 
GO TO 60 
CALL -AAB4 (R) 
GO TO 60 
CALL AABS5 (R) 
GO TO 60 
CALL AAG6 (R) 
GO TO 60 
CALL AA87 (K) 
GO TO 60 
CALL AA86 (K) 
GO TO 60 
CALL AAG9 (R) 
GO TO 60 
CALL AA9O (R) 
GO TO 60 
CALL AA91 (R) 
60 TO 60 
CALL AA92 (KR) 
GO TO 60 
CALL AA93 (R) 
GO TO 60 
CALL AA9G (R) 
GO f0 60 
CALL AA9S (R) 
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547 
548 
$49 
550 
551 
552 
$53 
554 
$55 
556 
557 
558 
559 
560 
$61 
562 
563 
564 
565 
566 
567 
568 
°569 
570 
571 
$72 
573 
574 
575 
576 
577 
578 
579 
580 
$61 
582 
563 
584 
585 
586 
587 
5868 
$89 
590 
591 
592 
$93 
594 
595 
596 


$97 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
616 
615 
616 
617 
618 
619 


c 
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GO TO 60 
596 CALL AAQ6 (K) 
GO TO 60 
597 CALL AA97 (K) 
GO TO 60 
596 CALL AA98(K) 
GO TO 60 
$99 WRITE (6,1999) T 
1999 PORMAT (1H0,10X,*ERROR SITUATION. ATTEMPT TO CALL SUBROUTINE AA’, 
1 I3,°WHERE IT IS MOT SUPPOSED TO BE SO"/11X,°NO SUCH °, 
2 "SUBROUTINE EXISTS*) 
WRITE (7,3000) T 
3000 FORMAT (10X,"ERROBR SITUATION. ATTEMPT TO CALL SUBROUTIWE AA’, 
© 13,°WHERE IT IS NOT SUPPOSED TO BE SO'/11X%,°HO SUCH *, 
** SUBROUTINE EXISTS*) 
GO TO 76 
c CHECK IP THIS ACTION YS COMPLETE 
60 IP (KGLOB .EQ. 0) GO TO 59 
IP (PRD(KGLOB)) GO TO 56 
c 
cc ERROR #ESSAGE 


WRITE (6,141) K,T,d 
141 PORHAT (1H0,10X,"ACTIOW WOMBER®,13,° OF TABLE WUHBER*,13, 
1 * CAN NOT BE COMPLETED.°/SX,° THE CURRENT RULE NUMBER IS*,13, 
2 * PURTHER EXECUTION WILL HAVE TO STOP*) 
WRITE (7,163) K,T,J 
183 PORMAT (10X,°ACTION NUBBER® ,I3,° OF TABLE WUABER® ,13, 
* ¢ CAN NOT BE COMPLETED.'/S5%," THE CURRENT RULE NUMBER IS*,13, 
* © PURTHER EXECUTION WILL HAVE TO STOP’) 
GO TO 76 


cc THE POLLOWING APPLIES IF THE MISSING IKGREDIEWT OF THE ACTION 
cc IS ADDRESSED fO SOHE TABLE PROM WHICH IT CAN BE RETRIEVED 


35 IP (TABD(IDATA) .NE. 0) GO TO 36 
cc ERROR AESSAGE 
c 


@RITE (7,181) K,T,IDATA 
181 PORMAT (1HO,15XZ,°ACTIOW WUMBER®,I3,° OF TABLE °,13, 
1 * CANNOT BE COMPLETED BECAUSE DATA WOMBER’,I3,° IS HOT °, 
2 "PRESENT.°/16X,*SUBROUTINE READIW IS CALLED‘) 
WORBER=3 
2012 KG=IDATA 
CALL READIN (KG, VORBER, IDAT A) 
IP (KG.WE.IDATA) GO TO 2016 
GO TO 2011 
2014 GRITE (7, 1080) 
1060 PORKAT(1X,"YOU HAVE IWPUT THE IPCORRECT VALUE OF KG°, 


@ ¢ PLEASE TRY AGAIY.GOOD LUCK*) 


GO TO 2012 
cc OBTAIN THE BISSING ING REDIEUT BY EXECUTIUG THE TABLE TABD (IR) 
36 TABKO = TABD(IDATA) 
cc STACK-UP BEPORE STARTING EXECUTION OF AWOTHER TABLE 
‘ CALL STAK (STACK, ISTACK ,IPLAG,T,Kod, Se ne Tea ee 
e GO TO 18 


cc THE POLLOWING APPLIES IW CASE OF DIRECT ZXECUTION COHBANDS 
ce THE ADDRESS OF THE TABLE WHICH IS DESIRED TO BE EXECUTED 
cc IS AVAILABLE AT LARRY2 (K1) 

cc AT LARRY2(K1) 


79 TABYO = LARBY2(K1) 
TR = 0 
IDATA = 0 
CALL STAK (STACK, ISTACK, IPLAG, £,K, 3,18, TABNO, IDATA,TRACB) 
GO TO 18 
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620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
684 
685 


647 
648 
649 
650 
651 
652 
653 
6546 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
667 
688 
689 
690 
691 
692 
693 
694 
695 
696 


ce 


Cc 


69 WRITE (6,169) 


989 PORHAT (1H0,15%,°BLSB RULE IS APPLICABLE IW FABLE GO.°, 14, 
1 *. PURTHER EXECUTION IS MOT POSSIBLE‘) 


WRITE (7,190) 


190 PORMAT(15Z%,°BLSB RULE IS APPLICABLE IH TABLE HO.',18, 
® © PURTHER EXECUTION IS WOT POSSIBLE) 


GO TO 76 


CALL SUBROUTINE SETS TO CHECK IF KGLOB BELONGS 
TO A MUTUALLY EXCLUSIVE SET.IP [If DOES,SET THE 


THE POLLOWING APPLIES LW CASB THB BLSE ROLE 1S APPLICABLE 


OTHER ELESENTS OP THE SET TO HO. 


$6 CALL SETS (KGLOB) 

59 K=K #1 
IP (K .GT. M(f)) GO TO 61 
GO TO 58 


c 
ce UNSTACKING GOES AS FOLLOWS 
c 


61 IP (ISTACK .£Q. 0) GO TO 76 
IFPLAG = STACK (ISTACK,1) 


f = STACK (ISTACK, 2) 
a @ SPACK (ISTACK, 4) 
Cc 
cc: 
cc 
c 
GO TO (63,64%,65,66),IPLAG 
63 I = STACK (ISTACK, 3) 
IR = STACK (ISTACK,5) 
GO TO 176 
64 1X 2 STACK (ISTACK, 3) 
KGLOB = STACK(ISTACK,S) 
Cc 


c 


CHECK If & TRACE OF THE GHSTACKING IS DESIRED OR HOT 


176 IP(TRACE .WE. YES) GO TO 67 
WRITE (6,178) T,I,d 


178 PORMAT(1HO,15Z,"RESTART EXECUTION OF TABLE °,13, . 
*3X,"AT CONDITION’ ,13,3%,°OF RULE®,13) 


GO T0 67 ; 
65 IR = STACK (ISTACK,5) 
66 K = STACK (ISTACK, 3) 


CHECK IPF & TRACE OF THE OMSTACKING IS DESIRED OR WOT 


IP(TRACE .WE. YES) GO TO 67 
WRITE (6,179) T,Kod 


179 PORNAT(1HO,15X,"BESTART EXECUTION OF TABLE *,13, 
©3X,°AT ACTION’, 13,3X,°OR RULE®,I3) . 


67 ISTACK = ISTACK - 1 


68 GO TO (70,71,72,59) ,IPLAG 
70 I1 s IBASE(T,1) +7 ° 
KGLOB = LARRY (11) 
IDATA = LARRYS (IR) 
LJ=IBASE (T,3)% (3-1) *H(T) oF 
2020 IP (PRD(IDATA)) GO TO 15 


cc ERROR MESSAGE 


c 


WRITE (7,116) IDATA,TABD(IDATA) ,I,T 
116 PORMAT (1HO,10X,°VALUEZ OP DATA WUNBER*,1&,* COULD WOT BE OBTAINED 

4 EVEN BY EXECUTING TABLE WONBER’,13,/11X,°THIS DATA IS AW *, 

2 "YNGREDIENT OF CONDITION WOBBER*,13,° OF TABLE WUNBER® , 13 

3. 11X,*SUBROUTINE READIW IS CALLED®*) 


NONBEB=2 

2016 KG=IDATA 
CALL READIN (KG, WUHBER, IDATA) 
IP(KG.NZ.IDATA) GO TO 2018 
GO TO 2020 

2018 WRITE (7, 1060) 


1060 PORHAT(1X,°YOU HAVE INPUT THE IBCORRECT VALUE OF KG', 


IP THB VALUE OP IPLAG IS 1 OR 2, THED THE STACKING WAS DOE 
IB THB COWDIEIOW SECTION; OTHBRISE IH THE ACTION SECTION 


POLLOWING IS A CHECK WHETHBR THE VALUE OF THE AISSING 
IWGREDIEWT HAS BEEW OBTAIWED OR WOT 


® © PLEASE TRY AGAIN.GOOD LOCK‘) 


GO TO 2016 
71 13 = IBASE(T,3) ¢ (J-1) #6 (7) 
2026 IF (PRD(KGLOB)) GO TO 50 
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697 
698 
699 
700 
701 
702 
703 
7104 
705 
706 
107 
708 
109 
‘710 
711 
712 
713 
714 
715 
716 
W177 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
136 
137 


ce BRROR MESSAGE 
c 


WRITE (7,117) KGLOB,TABD (KGLOB) ,I,? 
117 PORMAT (1HO,10X,"DATA MUABER*,IS, ° COULD WOT BE ESTABLISBED BVEY 
1 BY EXECUTING TABLE WUMBER*,I3/11X,°THIS DATA IS CONDITION ', 
2 ‘WUMBER’,I3,° OF TABLE SUMBER’, 13/112," SOBROUTIVE READIV’, 
3 ‘ES CALLED")  - 
BONBER=1 
2022 KG=KGLOB 
CALL READIN (KG, HUMBER, KGLOB) 
IP (KG.NE.KGLOB) GO TO 2026 
GO TO 2026 
2024 WRITE (7, 1080) 
1080 PORAAT(1Z,*"YOU HAVE INPUT THE INCORRECT VALUE OF KG’, 
® * PLEASE TRY AGAI®.GOOD LUCK*) 
GO TO 2022 
72 1 = IBASE(T,2).¢ K 
KGLOB @ LARRY2(K1) 
IDATA = LABRY6 (IR) 
2032 IP (PRD(IDATA)) GO TO 16 
c 
cc ZRROR MESSAGE 
Cc 
WRITE (7,118) IDATA,TABD(IDATA) ,K,T 
118 PORHAT (1HO, 10X,"VALUE OF DATA BUNBER*,3&%,° COULD WOT BE OBTAINED 
1 EVEN BY EXECUTENG TABLE WUNBER*,Z3,/11%,°THIS DATA IS AM °, 
2 "INGREDIENT OF ACTION  WONBER’,I3,° OF TABLE BURBER® ,13/- 
3 11X,"SUBROUTINE READIW XS CALLED*) 
WUNBER=3 
2026 KG=IDATA 
CALL READIN (KG, NUSBER, IOATA) 
IP (KG.NE.IDATA) GO TO 2030 
GO TO 2032 
2030 WRITE (7, 1100) 
1100 PORMAT(1X,°YOU HAVE INPUT THE INCORRECT VALUE OF KG", 
¢ ¢ PLEASE TRY AGAIB.GOOD LUCK®) 
GO TO 2028 
76 CALL OUTPUT (ICYCLE) 
ICYCLE = ICYCLE + 1 
Go fo 1 
BUD 
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SUBROUTINE SETUP 


cc THIS SUBROUTINE READS THE DECISYON TABLES AUD THE PROPERTIES 
cc OP DATA FOR PERHANENT STORAGE AMD STORES THEM IN CONPACTED PoRS 


ec DECLARATIONS 


IMPLICIT LOGICAL?1 (P), INTEGER*2 (Y-m) 
INTEGER*2 STACK, BUTRY,T,TABNO,TABD, TABOK, TPIRST, THPSET 
COMHON /HICA/DATA,PRD 
COMMON /MUSTOP/LABRY1, LARRY2, LARRY3,LARRY4S, LARRYS, LARRY6, IBASE, 

1 IPNTRC, IPUTRA,TABD,L, N,N, T,TPIRST 

COMMON /HUSTIN/ISET, MEXSET, HARCA, TRACE, THEGAP 

COMMON /STOPIN/ ICLEAR,IARROW 

COMMON /STINTL/ INDEX, ENTRY, YHGR, IDEPUD, TAPSET 

DIMENSION 

1 LARRY (600) LARRY 2 (600) , LARRY3 (5000) , LARRYS(5000) ,LBASB(120,4), 
2 LARRYS ( 600) ,LARRY6 ( 600) , TPUTRC (600) , LPHTRA (600) , 
3 DATA (700) ,PRD (700) , TABD (700) ,ISET (700) , 
GI ARROW (700) eI CLEAR (2000) , : 
SL (120) 6 (120) (120) , STACK (20,5) - RESULT (2), 
soe ne reco) LETRY (25,40) ,1GR(25, 12) , IDEPHD (700, 100) , TAPSET (100, 20) 
DIMENSION HEXSET (150) , MARCA (100) 


INITIALISE THE ARRAYS 


ana 


CALL TWTIAL 

DATA C/*C*/, YES/* YES" /, 80/9 NO’ / 
IBASE1 = 0 

IBASE2 = 0 

IBASE3 = 0 

IBASE4 = QO 

IBASES = 0 

IBASE6 = 0 


cc INPUT THE TABLES PIRST FROWN DATA SET SOMBER 9 
cc FIRST READ THE TABLE WUMBER AWD I¢S SIZE 


KOUNT = 1 
1 READ (9,101) T,LT,8T, NT 
101 PORHAT (4210) 


& BLAWK CARD SIGHIPIES END OF THE LAS? TABLE 
IP (Tf .£Q. 0) GO To & 


c 
c 
c 
Cc 
ce CHECK THAT THE TABLE BORDER BAS BOT BXYCEBDED THE DISBESION oF 
cc SRRAYS LM, AND 9, WHICH IS 120 : 

cc OTHERWISE GIVE AW ERROR MESSAGE HERE FO THIS BPrECT 

c ; 


IF (T .LE. 120) Go fo 12 
WRITE (6,124) F 
126 PORHAT (20X,"CAREPUL: YOU ARE EXCEEDING THE DIMEWSION OF L,H, © 
* WHICH IS 120.* / 20%, "CURRENT VALUE OP T IS* ,r8) 
STOP 
12 L(t) = Lt 
A(T) = aT 
u(T) = UT 
IP (THEMAP .WE. YES) GO TO 13 
c PRINT OUT THE INFORMATION OW TABLE WOMBER AND ITS SIZE 
WRITE (6,151) T,LT,AT, UT 
181 FORMAT (180, 10%, ‘TABLE WO.*,18,*, LY =",13,%, aT =,73, 
1¢, BP =',13//) 


é ists 
c WOW READ THE CONDITION ENTERIES 
c 

13 IP (KOUNT .NEB. 1) Go TO 16 
ee STORE THE DESIGNATION OF THE PIRST TABLE READ IW AS ITABLE 
re ; 


ITABLE = f 
KOUNT = 1000 
. O51 = 1,"f 
ie READ (9,102) (LUGB (I,J) ,J=1,6) pPLAG, INDEX (I) , (ENTRY (I,J) ,J@1,L) 
102 FORHAT (T51,5 (16, 1%) .14,41,%1,15,5%, 6011) 
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CHECK IP THE WEXT CARD YS A CONTINUATION OF THIS CARD 


IP (PFLAG .WE. C) GO TO 17 

READ (9,103) (INGR(I,J) ,9=7,12) 
PORBAT (151,5(14%, 1X) ,14) 
GO TO 19 


IUCASE THE WEXT CARD IS WOT I¥ CONTINUATION or THE PREVIOUS CARD 


dO 18 3 = 7,12 

INGR(I,J) = 0 

CONTINUE 

IP (THEHAP .WE. YES) GO TO 5 

PRINT THE CONDITION ENTRIES SIMULTANEOUSLY 

WRITE (6, 162) (THGR(T, J) .J=1,12) ,INDEX (1) , (ENTRY (I,J) .J=1,L9) 
PORHAT (761, 1215,711,15,5%,%011) 

CONTINUE 


PILL THE CONDITION STUB IB THB LIBBAR ARRAY *LagRy1” 
PILL THE CONDITION ERTRIES THE LIWEAR ARRAY “LARBY3" COLURH-WISE 


THE BASE ADDRESSES FOR THIS TABLE LB LARRY! AUD LARRY ARE 
AVAILABLE AS ILBASE(T,1) AWD IBASE(F,3) RESPECTIVELY 


IBASE(T,1) = IBASEI 

IBASE (T,3) = IBASE3 

PIRST PILL THE CONDITION EWTRIES IW LARRY COLUAW-WISB 
do 41 39 = 1,L7 

BASE ADDRESS FOR THE COLUNB 

IJJ = IBASE3 © (J-1) *uT 

po 41 I = 1,07 

IJ = JJ + I 

CHECK THAT IJ IS WOT HORE THAW THE DIBEWSIOFED VALUE OF LARRY3 
IF (13 .GT. 5000) GO TO 42 

LARRY3 (IJ) = ENTRY (I,J) 

CONTINOE 


PILL LARRY! WITH CCNDITIOW STUB, LARRYS BITH INGREDIEWTS AD 
GENERATE THE DEPESDENCE LIST POR THE COBDITIONS OF THIS TABLE 


DO 48 I = 1,KNT 

I1 = IBASE1 + I 

CHECK THAT I1 IS WOT MORE THAW THE DIBEWSIOWED VALUE OF LARRY? 
IF (I1 .GT. 600) Go fo 43 

LARRY1(I1) = INDEX (I) 


THE INGREDIENT LIST POR THIS BOW OF CONDITION STUB HAS ITS 
BASE ADDRESS STORED AS FOLLOWS 


IPWTRC(I1) = IBASES 

DO 46 J = 1,12 

IP THERE XS NO INGREDYERT, IF WILL BE IWDICATED BY ZBRO 
IF (IWGR(I,J) .EQ. 0) GO TO 47 

IJ = IPNTRC(I1) + J 

CHECK THAT THIS IS WOT MORE THAW THE DIHEHSION OF LARRYS 
Ip (IJ .GT. 600) GO TO 49 

LARRYS(IJ) = INGR(I,J) 


GENERATE THE DEPEWDEWCE ARRAY RIGHT HERE 
WOTICE THAT IWDEX(I) IS DEPEWDEWT OF ILWGR(I, J) 


KGLOB = INGR(I,J) 


SEARCH IP INDEX(I) ALREADY EXISTS IN IOBPWD(KGLOB,*) 
IF MOT THEW PLACE If IN; OTHERWISE SKIP IT 


DO 45 WOR = 1,100 

IP (IDEPHD (KGLOB,8UK8) .£Q. 0) GO TO 44 

IP (IDEPHD(KGLOB,B0G) .~£Q. IMDBX(I)) GO TO 46 
GO TO 45 

IDEPBD (KGLOB, BOK) = IBDEX (I) 

GO TO 4&6 
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149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
168 


165. 


166 
167 
168 
169 
170 
171 
172 


173 


176 
175 
176 
177 
176 
179 
180 
161 
162 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 


199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
216 
215 
216 
217 
218 
219 
220 
221 
222 
223 


ce 
cc 
cc 
c 


AAA 


99 


47 


46 


26 
29 
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COWTINOE 

& NORHAL EXIT PROM THIS LooP IWOICATES THAT THE 100 ELEREN™S 
OF IDEPND(KGLOB,*) ARB ALL THERE AWD SO ITS DIBERSION : 
SHOULD BE INCREASED 


WRITE (6,119) KGLOB 


119 PORMAT (20X,*CAREFUL: YOU ARE EXCEEDING THE DIBEBSIOB OF ‘, 
1 *IDEPND(*,I4,°, ). THIS NESSAGE PRINTED BY FoRwAT. 119° ) 


STOP 

CONTINGE 

IBASES = LewTRC(I1) * J = 1 
CONTINUE 


KEEP THE BASE ADDRESS READY POR THE WEXT TABLE 


IBASE1 = IBASE1 * wr 
IBASE3 = IBASE3 ¢ WIeLT 

READ THE ACTIOW BWTERIES AWD PRINT THEN, IF DE-IRED 

IP (THEHAP .WE. YES) GO TO 750 

WRITE (6, 153) 

FORMAT (1X ) 

DO 6 K = 1,49 , 

READ (9,102) (INGE (K,d) ,J=1,6) ,PLAG, INDEX (K) , (ENTRY (K, J) ,J=1, LT) 
CHECK IP THE NEXT CARD IS A CONTIWUATION OF THIS CARD 

IP (PLAG .WE. C) GO TO 25 

READ (9,103) (INGR(K,J) ,J3@7,12) 

GO TO 29 


INCASE THE WEXT CARD IS WOT IM CONTINUATION OF THE PREVIOUS CaRD 


DO 26 J = 7,12 

INGR(K,J) = 0 

CONTINUE ' 

PRINT THE ACTION ENTRIES ETC. SIHULTAWEOUSLY, IF SO DESIRED 
IF (THEHAP .WE. YES) GO TO 6 

WRITE (6, 162) (INGR (Ko J) -S=1, 12) , INDEX (K) , (EBTRY(K,J) ,J=1, LP) 
CONTINUE 


PILL THE ACTION STUB IW THE LIWEAR ARRAY “LARRY2" 
PILL THE ACTION ENTRIES IW THE LIWBAR ABRAY “LARRYS® COLUMN-8ISE 


THE BASE ADDRESSES FOR THIS TABLE IW LARRY2 AWD LARRYS ARB 
AVAILABLE AS IBASE(T,2) AWD IBASE(T,%) RESPECTIVELY 


IBASE(T,2) = IBASE2 

IBASE (T,%) = IBASES 

PIRST PILL THE ACTIOW EWTRILS IW THE LARRYS COLUAN-HYS 
DO 51 J = 1,Lf : 
BASE ADDRESS POR THE COLUAW 

IdJ = IBASES @ (J- 1) NT 

DO 51 K = 1,4T 

KJ = IdJ ¢ K 

CHECK THAT KJ IS NOT HORE THAW THE DIHEWSIOWED VALUE OF LARRYS 
IP (KJ .GT. 5000) GO TO 52 

LARRY4(KJ) = ENTRY (K,J) 

CONTINOE 


PILL LARRY2 WITH ACTION STUB, LARRY6 WITH INGREDIENTS AND 
GENERATE THE DEPENDEWCE LIST FOR ACTIONS OF THIS TABLE 


pO 58 K = 41,87 
K1 = IBASE2 # K 

CHECK THAT K1 IS NOT MORE THAW THE DINEWSIOWED VALUE OP LARRY2 
IP (K1 .GT. 600) GO fO 53 

LARRY2(K1) = INDEX (K) 

THE INGREDIENT LIST FOR THIS BOW OF ACTION STUB IS AS FOLLOWS 
IPNTRA(K1) = IBASE6 

DO 56 J = 1,12 

IP THERE IS WO IWGREDIENT, IT WILL BE IBDICATED BY ZERO 

IP (INGR(K,3) .2Q. 0) GO TO 57° 

KJ = IPNTRA(K1) ¢ J 

CHECK THAT.THIS IS NOT MORE THAN THE DINEBSIOW OF LARRY6 

IP (KJ .GT. 600) GO TO 59 

LARRY6 (KJ) = INGR(K,3) 
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226 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
2386 
239 
260 
241 
242 
283 
268 
245 
286 
287 
286 


249 
250 
251 
252 
253 
254 
255 
256 
257 
256 
259 
260 
261 
262 
263 
2648 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
261 
282 
283 
264 
285 
266 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 


cc 
cc 


c 


c 


Cc 


58 
55 


56 
$7 
$8 


64 
65 


121 


234 


GEWERATE THE DRPEMDEUCK ARRAY RIGHT RERE 
WOTICE THAT THDEX(K) IS A DEPEHDEWT OF THGR(K, 3) 


KGLOB © INGR(K,J) 


SEARCH IP INDEX (K) ALREADY BXISTS Iw IDEPUD (KGLOB, *) 
IP NOT THEN PLACE If IW; OTHERWISE SKIP If 


DO 55 NUH = 1,100 

IP (IDEPND(KGLOB, HUH) .£0.0) GO TO 54 

IP (IDEPND (KGLOB, NUS) eo EQ. INDEX (K)) GO TO 56 
GO TO 55 

IDEPND (KGLOB, WOM) = INDEX (KR) 

GO TO 56 

CONTINUE 


A WORHAL EXIT PRON THIS LOOP LUDICATES THAT THE 100 ELERENTS 
OF IDEPHD(KGLOB,*) ARE ALL THERE AND SO ITS DIHENSION 
SHOULD BE INCREASED 


WRITE (6,120) KGLOB 


120 PORHAZ (20%,*CAREBPUL: YOU ARE EXCEEDING THE DINENSIOw OF , 
1 *IDBPWD(*,I%,*, ). THIS MESSAGE PRINTED BY PORHAT 120° ) 


STOP 


CONTI NUL 

IBASE6 = LPWTBA(K1) * J = 1 

CONTINUE 

KEEP THE BASE ADDRESS READY FOR THE BEXT TABLE 
IBASE2 = IBASE2 @ AT 

IBASES = IBASEY ¢ AT*LT 

APPEWD LOGICAL DATA TO THE DEPEWDEBCB LIST 
DO 69 J = 1,1f 

DO 68 K = 1,HT 

IP (EWTRY (K,J) -BQ. 1) GO TO 63 

GO TO 68 


CHECK IF THIS ACTIOW STORES ANY VALUE IW ANY LocaTION 
IP (INDEX(K) .2Q. 0) GO TO 68 


INDEX (K) IS DEPEWDENT OF ALL THE LOGICAL CONDITIONS WHICH ARE 
WOT ISHATERIAL POR THIS RULE 


DO 66 I = 1,NT 
IJ = IBASE(T,3) * (J-1p¢uT oT . 
IP (LARRY3(IJ) .2Q. 0) GO TO 66 


OTHERWISE SEARCH IP IWDEX(K) IS ALREADY IW THE LIST OF 
DEPENDEWTS OF THIS CONDITION 


I1 = IBASE(T,1) ¢ I 
KGLOB = LARRY1(11) 

DO 65 NUM = 1,100 

IP (IDEPND(KGLOB,WUH) .£Q. 0) GO TO 64 

IF (IDEPND(KGLOB, BOM) .EQ. INDBX(K)) GO TO 66 

GO TO 65 

IDEPWD(KGLOB, BUM) = INDEX (K) 

GO TO 66 ; 

CONTINOE 

A WORNAL EXIT IS AW ERROR AS BEFORE 

WRITE (6,121) KGLOB 

PORMAT (20X,°CAREPUL: YOU ARE EXCEEDING THE DIMENSION OF °, 


1 *IDEPWD(*,I4,*, ). THIS MESSAGE PRINTED BY FORMAT 121° ) 


STOP 

CONTIWOE 

CONTI MUE 

CONTIBOE 

TO READ THE BEXT TABLE 
GO TO 1 


COMPACT THE ARRAY IDEPHD"INTO A LIBEAR ABRAY AWD HAHE IT ICLEAR 
BECAGSE IT WILL BE USED IW CLEARING THE BPFECT OF CHABGES OF DATA. 
EACH BLESEST IW THE LIST OF DATA WILL HAVE AW ARROW POINTING IETO 
*YCLBAR"; THBSE ARROWS ARE STORED AS TARROW (KGLOB) 
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339 
380 
361 
342 
343 
304 
345 
396 
397 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 


33 
133 


70 
80 


.c 
cc 


Ce: 
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RONGES OF THE TWO DO LOOPS BELOW ARE SARB AS THE 
TWO DISENSIOWS OF IDEPRD 


Jis 0 
DO 80 KGLOB = 1,700 
TARROW (KGLOB) = J1 


CHECK IF KGLOB BELONGS TO A SET 


IF (ISET(KGLOB) .£Q. 0) GO TO 82 
WSET = ISET (KGLOB) 


CHECK IF KGLOB IS THE FIRST ELEMENT OF THE SET. 
If YES THEW IT GOES INTO ICLEAR; OTHERWISE WOT 


I1 = MARCA(NSET) + 1 
IP (MEXSET(I1) .2Q. KGLOB) GO To 262 


GAKE THE DEPEWDESTS OF KGLOB SAKE AS THAT OF THE FIRST 
ELESEWT OF THE SET 


JGLOB = MEXSET (I 1) 

DO 202 WOH = 1,100 

IF (IDEPND(JGLOB,WUS) .2Q. 0) GO fO 80 
IDEPND(KGLOB, NUM) = IDEPHD (JGLOB, BUR) 
CONTINUE 

GO TO 80 


FILL THE DEPENDBWTS OF THE PIRST BLENEWT OF THE SET WITA 
ALL THE POSSIBLE DEPENDENTS IWDICATED FOR THE ELEHEWTS 
OF THE SET 


1 = HARCA(NSET) * 2 

H2 = MARCA(NSET ¢ 1) 

DO 220 ID = 41,H2 

HM = HEXSET(ID) 

DO 215 JN = 1,100 

IF (IDEPHD(NN,JH) .EQ. 0) GO TO 220 


SEARCH IPF THIS DEPEWDEWT IS ALREADY IW THE LIST OF 
DEPENDENTS OF THB FIRST ELEAENT 


DO 210 NUA = 1,100 

IP (IDEPYD(KGLOB, BUH) .£Q. 0) GO TO 205 
IF (IDEPND(KGLOB, HUA) .£Q. IDEPHD(NA,38)) GO FO 215 
GO TO 210 

IDEPBD(KGLOB,WOUM) = IDEPWD (HA, JB) 

GO TO 215 

COSTINUE 

CONTINUE 

CONTINUE 

DO 70 J = 1,100 

IF (IDEPND(KGLOB,J) .EQ. 0) GO TO 80 
Ji= gi ¢ 1 


CHECK THAT J1 IS NOT MORE THAW THE DIHEWSIOWED VALUE OF 
THE ARRAY “ICLEAR® WHICH CURRENTLY IS 2,000 


IF (J1 .GT. 2000) Go TO 33 

ICLEAR(J1) = IDEPED(KGLOB, 3) 

GO TO 70 

WRITE (6,133) 

FORMAT (1H0,10X,°CAREPUL; YOU ARE EXCEEDING THE DISEWSION’, 
1 * OF THE ARRAY "ICLEAR" WHICH IS 2000°/10X,*REAEDY IS TO°, 
2 * INCREASE THIS DIREMSION') 

STOP 

CONTINUE 

CONTINUE 

GO TO 95 


PILL-UP THE BLAWKS IW THE ARRAY IBASE 


DO 444 fT = 1,120 
IP (IBASE(T,1) .WE. O .OR. F .BQ. FTABLB) GO TO 444 
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374 
375 
376 
377 
378 
379 
380 
361 
362 
383 
364 
385 
386 
387 
3868 
389 
390 
391 
392 
393 
394 
395 
396 
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398 
399 
400 
401 
402 
903 
9046 
405 
4% 06 
407 
$08 
409 
410 
411 
812 
813 
G1@ 
915 
816 
417 
918 
419 
920 
921 
822 
423 
426 
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26 
927 
828 
829 
430 
431 
832 
433 
436 
435 
436 
437 
436 
439 
840 
464 
8&2 
863 
864 
645 
646 
847 
688 


175 PORMAT (10X,*CAREPUL; YOU ARE EXCEEDING THE DIHEWSION OF THPSET(°, 


IBASE(T,1) © IBASEI 
IBASE(T,2) = IBASE2 
IBASE(T,3) = IBASE3 
IBASE(T,4) © IBASES 
CONTINUE 


PILL-UP THE BLAWKS AT THE TAIL EWD OF THE ARRAY IPNTRC 


It = 114 74 

DO 445 I = £1,600 
IPNTRC() = IBASES 
CONTINUE 


PILL-OP THE BLANKS AT THE TAIL EXD OF THE ABRAY IPHTRA 


Ki = Ki¢1 

DO 4646 K = K1,600 
IPNTBA(K) = IBASE6 
CONTINUE 


IWPOT PROPERTIZS OF THE ELEWEWTS OF DATA E.G. ADDRESSES 
OF TABLE HUMBERS FROM WHICH THEY CAW BE DERIVED 
AND THEIR HE@BERSHIP OF SETS ETC. FBOH DATA SET DUMBER 9 “ 


EP (THEGAP .WE. YES) GO TO 2 
HEADING FOR THE WEXT OUTPUT 


WRITE (6,154) 

PORWAT (1H1,30K, *KGLOB®,10X, "TABDK®, 10%, *HSET*//) 
READ (9,105) KGLOB,TABDK,USET 

FORSAT (3110) 

A BLABK IS A SIGNAL OF END OF THAIS DATA 

IP (KGLOB .£Q.0) GO To 15 

TABD (KGLOB) = TABDK 

ISET (KGLOB) = NSET 


PRINT THIS IBFORNATION ABOUT THE ELERESTS OF DATA, IP DESIRED 


IP (THESAP .WE. YZS) GO TO 73 
WRITE (6,155) KGLOB,TABDK, WSET 
PORMAT (25X,3(110,5X)) 


GEWERATE THE MUTUALLY EXCLUSIVE SETS IW A TESPERORARY ARRAY 
AND WAME If THPSET 


IP (WSET .2Q. 0) GO TO 2 

DO 75 J = 1,20 

IF (THPSET (WSET,3) .2Q. 0) GO TO 74 
IPF (THPSET(NSET,J) .EQ. KGLOB) GO TO 2 
GO TO 75 

TAPSET(BSET,3J) = KGLOB 

GO TO 2 

CONTINUE 


A NORMAL EXIT PROM THIS LOOP INDICATES THAT THE TEN ELEMENTS 


OF TAPSET(NSET,*) ARE FULL AND ITS DIMENSION SHOULD BE INCREASED 


WRITE (6,175) WSET 


1 12,°,*). THIS HESSAGE GENERATED BY FORAAT MUMBER 175°) 
STOP 


COHPACT THE CONTENTS OF TMPSET IW ARRAY HEXSET. 


POINTER FROM HUTUALLY EXCLUSIVE SET TO HEXSET IS WAHED AS MARCA 


Ji = 0 

DO 78 HSET = 1,100 

‘BARCA(NSET) = J1 

DO 76 J = 1,20 

IPF (TAPSET(HSET,J) -£Q. 0) GO TO 78 
JizJie¢ei 


CHECK THAT J1 IS WOT BORE THAW THE DIHEWSIOWED VALUE 
OF THE ARRAY @BXSET YHICH IS CURREWTLY 150 


236 


aateal caste mt 80 ous asar aun 


w\rraewe 


aKIZRG VI, ATAT NO. 


\ 


fi ,; ain ea qysan ti te Ls 


Fs 
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§49 
450 
451 
52 
453 
856 
455 
456 
457 
458 
459 
460 
461 
%62 
863 
46% 
465 
966 
467 
&66 
469 
470 
471 
672 
873 
$76 
475 
476 
477 
470 
479 
9860 
481 
982 
983 
484 
465 
9% 866 
467 
488 
4869 
490 
491 
§92 
493 
898 
a95 
896 
897 
896 
499 
500 
504 
502 
$03 
504 
505 
506 
507 
$08 
$09 
510 
$11 
$12 
513 
514 
$18 
516 
$17 
$18 
$19 
$20 
$21 
$22 
$23 


cc 
Cc 


Cc 


I” (J1 .GT. 150) Go To 79 
MEXSET(J1) = THPSET(WSET,J) 
GO TO 76 

79 WRITE (6,179) 

179 FORMAT (1HO,10%,°CAREPUL; YOU ARE EXCEEDING THE DIRENSION °, 
1 "OF THE ARRAY MEXSET WHICH IS 150°/ 
211X,"REMEDY IS TO INCREASE THIS DIMENSION") 
STOP 

76 CONTINUE 

78 CONTINUE 


WOW TO COMPACT TRE ARRAY IDEPWD 


GO To 3 
READ WHICH TABLE MUST BE EXECUTED PIRST 

95 READ (5,107) TPIRST 

107 PORMAT (110) 
GO TO 39 

42 WRITE (6, 142) 

142 PORMAT (1HO,10X,"CAREPUL, THE DINENSIOW OF THE ARRAY LARRY3*, 
1 * IS BEING EXCEEDED. CURRENT SPECIPIED DIMENSION = $000'/ 
2 11X,"REMEDY IS TO INCREASE THIS DIBEVSION. JOB TERAIMATED') 
STOP 

43 GRITE (6, 143) 

143 FORMAT (1H0,10X,°CAREZPUL, THE DIMEWSION OF THE ARRAY LARRY1", 
1 * IS BEING EXCEEDED. CURRENT SPECIFIED DIKENSION = 600'/ 
2 11X,"REMEDY IS TO INCREASE THIS DEIMENSIOW. JOB TERMINATED") 
STOP 

49 WRITE (6,149) 

149 PORMAT (1HO,10X,"CAREPUL, THE DIMEWSION OF THE ARRAY LARRYS®, 
1" IS BEING EXCEEDED. CURRENT SPECIFIED DIBENSION = 600'/ 
2 11X,"REMEDY IS TO INCREASE THIS DIMENSION. JOB TERAIWATED*) 
STOP 

52 WRITE (6,152) 

152 FORMAT (1H0,10X,*CAREPUL, THE DIMENSION OF THE ARRAY LARRYS', 
1" Is BEING EXCEEDED. CURRENT SPECIFIED DINEWSION = 5000'/ 
2 11X,*RENEDY IS TO INCREASE THIS DIMEWSION. JOB TERAINATED') 
STOP 

53 WRITE (6,150) 

150 PORMAT (1H0,10X,"CAREFUL, THE DIWEWSIOW OF THE ARRAY LARRY2*, 
1 * IS BEING EXCEEDED. CURRENT SPECIFIED DIMENSION = 600°, 
2 11%,"RENEDY IS TO INCREASE THIS DIMENSION. JOB TERMIWATED*) 
STOP 

59 WRITE (6, 159) 

159 FORMAT (1H0,10X,°CAREFUL, THE DIGENSION OF THE ARRAY LABRY6!, 
1° IS BEING EXCEEDED. CURREUT SPECIFIED DIBEWSION = 600°, 
2 11X,°RESBDY IS TO INCREASE THIS DIHEWSIOB. JOB TERAINATED") 
STOP 


CHECK IF THE WAP OF THE PERHAWEWT STORAGE IS DESIRED 


39 IP (THEHAP .WE. YES) GO TO 999 

WRITE (6,500) (LARRY1(1) ,I=1,600) 

500 FORMAT (1H1,5X,*LARRY1°//30 (5X, 1015,5X, 1015/)) 
WRITE (6,501) (LARRY3(I) ,I=1,5000) 

501 PORHAT (1H1,5X,*LARRY3*//50(5X,10(1011, 1X) /)) 
WRITE (6,502) (LARBY2 (I) ,I=1,600) 

502 PORMAT (1H1,5X, "LARRY 2'//30(5X,1015,5X%,10I5/)) 
WRITE (6,503) (LARRY4(I) ,r=1,5000) 

503 PORMAT (1H1,5X,"LARRYG"//50 (5X, 10 (1011, 1X) /)) 
WRITE (6,505) (J, (IBASE (I,J) ,I=1, 120) ,J=1,4) 

505 FORMAT (1H1/4 (SX, *IBASE*,11//6 (5X, 1015, 5X, 1015/) ////)) 
WRITE (6,506) (LARRY5 (I) ,¥=1,600) 

506 FORMAT (1H1,5X,"LABRYS'//30(5X,1025,5X,1015/)) 
WRITE (6,507) (LARRY6 (I) ,I=1,600) 

507 FORMAT (1H1,5X,"LARRY6'//30 (5X, 1015,5X, 1015/)) 
WRITE (6,508) (IPNTRC(I) ,I=1,600) 

508 PORMAT (1H1,5X,°IPNTRC'//30(5X,1015,5X, 1015/)) 
WRITE (6,509) (IPWTRA(1) -I=1,600) 

$09 PORMAT (1H1,5X%,"IPNTRA*//30(5X,10E5,5X,1015/)) 
WRITE (6,511) 

511 PORMAT (1H1,10X,"NON CONPACTED LIST OF DEPENDENTS’ // 
1 110, °DATA’,T17,°NO. OF*,730,"LIST OF DEPENDENTS’ / 
2 T10,"N0.*, 215, "DEPENDENTS *//) 
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pO $18 X = 1,700 

DO 513 3 = 1,100 

IP (IDEPND(I,J) .EQ. 0) GO TO 613 

CONTINUE 

IP (3 .EQ. 1) GO TO 514 

31 = J-1 

WRITE (6,512) I,J1, (IDEPND (I,J) ,J=1,J1) 

FORMAT (10X,13,5X,° (",12,°) *,4 (730, 4 (514, 2X) /)) 
CONTINUE 

WRITE (6,520) (IARROW(I) ,I=1, 700) 

PORMAT (1H1,5X,"IARROW'/35 (SX, 1015,5X, 1015/)) b 
WRITE (6,521) (ICLEAR(I) ,1=1, 2000) 

PORMAT (1H1,5X,"ICLEAR"//20(5(5X, 1015 55X_10I5/)/)) 
WRITE (6,522) ((TMPSET (I,J) ,J=1,20) ,I=1, 100) 

PORMAT (1H1,20X,°TMPSET'//5 (10(20X, 10I5/) /)) 

WRITE (6,523) (MEXSET(I) ,I=1, 150) 

FORNAT (1H1,20X, *SEXSET*/15(20X, 1015/)) . 
WRITE (6,524) (HARCA(I) ,I=1,100) 

PORMAT (1HO, 20X* MARCA /5(20X,1015/) ) 

WRITE (6,525) (ISET(I) ,I=1,700) 

FORMAT (1H1,5X,°ISET'/35 (5X, 1015,5X, 10I5/)) 

WRITE (6,172) TPIRST 

PORMAT (1H0,15X,* EXECUTION WILL START WITH TABLE WO.', 14) 
WRITE (8) LARAY1,LARRY2,LARRYS,LARRYG, IPUTRC, I PETRA 
WRITB(8) LARRY} 

WRITE (8) LARRY 

WRITE (8) ISEP,TABD,L,8,¥,TFIRST, IBASE 

WRITE (8) HEXSEL, MARCA, TRACE, TCLEAR, TARROG 

RETURS 
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SUBROUTINE INTIAL 

THIS SUBROUTINE IS USED 7O INITIALIZE THB VARIOUS ARRAYS 
USED BY THE PROGRAN 

IMPLICIT LOGICAL#1 (P), INTEGER®2 (I-N) 

INTEGER*2 STACK, ENTRY, T,TABNO,TABD, TABDK, TFIRST,THPSET 
COMMON /NICA/DATA,PRD 


‘COHHON /MBSTUP/LARBY1, LARRY2,LARRY3,LARRY4,LARRY5S, LARBY6, IBASB, 


1 


WeFEWR@ 


IPNTAC, IPHTRA, TABD,L,U,N,T,TFIRST 
COMMON /BNSTIN/ISET,MEXSET, HARCA, TRACE 
COMBON /STUPIN/ ICLEAR,IARROW 
COMHON /STINTL/ INDEX, ENTRY, INGR, IDEPRD, PHPSET 
DIMENSION 
LARRY 1 (600) ,LARRY2 (600) , LARRY3 (5000) , LARRY4 (5000) , YBASE(120,8) , 
LARBYS( 600), LARRY6( 600) , IPWTRC (600) , IPHTRA (600) , 
DATA (700) ,PRD (700) , TABD (700) ,XSET (700) » 
TARROW (700) ,ICLBAR(2000) , 
L (120) ,8 (120) ,8 (120) , STACK (20,5) , RESULT (2) , 
INDEX (25) , BNTRY (25,40) ,TB8GR(25, 12) ,-XDEPHD (700, 100) , PHPSET (100, 20) 
DIMENSION KEXSET (150) ,BABCA (100) 
DO 10 I = 1,600 


LARRY1(I) = 0 
LARRY2(I) = 0 
IPWTRC(I) = 0 
IPNTRA(I) = 0 
CONTINUE 


DO 20 I = 1,700 
DATA(I) = 0. 
PRD (I) = .PALSE. 
TABD(I) = 0 
ISET(I) = 0 
IARROW(I) = 0 

DO 22 J = 1,100 
IDEPND(I,J) = 0 
CONTINUE 
CONTINUE 

DO 21 I = 1, 1000 
LARRYS (I) = 6 
LARBY6(I) = 0 
CONTINUE 

po 30 I = 1,5000 
LARRY3 (I) = 0 
LARRY4 (I) = 0 
CONTINUE 

po 31 I = 1,2000 
ICLEAR(I) = 0 


CONTINUE 
DO 40 I = 1,100 
GABCA(I) = 0 


DO 40:'J = 1,20 
THPSET(I,3) = 0 
CONTINUE 

DO 41 I = 1,120 
L(I) = 06 

a(I) = 0 

K(I) = 0 

DO 41 3 = 1,4 
IBASE(I,J) = 0 
CONTINUE 

po 50 I = 1,25 
INDEX (I) = 0 

po 48 J = 1,40 
ENTRY (I,J) = 0 
CONTINUE 

po 49 J = 1,12 
INGR(I,J) = 0 
CONTINUE 
CONTINUE 

DO 60 I = 1,20 
pO 60 J = 1,5 
STACK (I,J) = 0 
CONTINUE 

DO 70 I = 1,150 
HEXSET(I) = 0 
CONTI BOB 

BETURW 

BUD 
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SUBROUTINE STAK (STACK, ISTACK LFLAG,T,1, JLB, TABEO,LDATA, TRACK) 


ag® 


THIS SUBROUTINE PERFORNS STACKIWG OF DECISION TABLES FOR 
CONDITIONAL EXECUTION AND GENERATES MESSAGES TO THIS BFFECT 
IMPLICIT LOGICAL*1 (PB), INTEGER*2 (I-K) 

INTEGER*2 STACK, ISTACK,IFLAG,T, 1,3, IR, TABWO,IDATA,TABD 
CONMON/SNSTUP/LARRY1,LARRY2,LARRY3,LARRYS, LARRYS,LARRY6, IBASE, 


1 IPNTRC,IPNTRA,TABD,L,4,N 


DIMENSION STACK (20,5) ,L(120) , LARRY 1 (600) , LABRY2 (600) , 
ILARRY3 (5000) ,LARRY4 (5000) , LARRYS (600) , LARRY6 (600) , 
2IBASE (120.4) ,IPNTRC (600) ,IPHTRA (600) , TABD (700) , 


38 (120) , 8 (120) 


DATA TES/$YE5"/4HO/*¥0"/ 


ISTACK = ISTACK 
STACK (ISTACK, 1) 
STACK (ISTACK, 2) 
STACK (ISTACK, 3) 
STACK (ISTACK , 4) 
STACK (ISTACK,5) 


Cc MISSING INGREDIENT OP A CONDITION 


aaa ann a 


@ WRITE (6,104) T,I,J,IDATA, TABWO 
104 PORMAT (1HO,10X%,"SUSPENDED EXECUTION OF TABLE °,13, 
1 © AT CONDITION’ ,13," OF RULE*,I3/11K,° 
2 ‘INGREDIENT CORRESPONDING TO DATA WUNBER ',13/ 
3° 11X," STARTED EXECOTION OF TABLE ° ,I3) 


GO TO 10 
Cc 
cc MISSING VALUE OF THE CONDITION ITSELF 
c 
5 WRITE (6,105)T,I,J3,TABNO,IR 
105 FORMAT (1HO, 10X," SUSPENDED EXECUTION OF TABLE ° 13, 
4° AT COMDITION’,13,° OF RULE*,13/11X,° STARTED £XECUTION’, 
2 * OF TABLE ‘*,13," TO OBTAIN VALUE OF DATA WOHBER* ,I&) 
GO TO 10 
c 
ce SISSING INGREDIENT OF AW ACTION 
c 
6 WRITB (6,106)T,I,3,IDATA,TABNO 
106 PORHAT (180, 10%, "SUSPENDED EXECUTION OF FABLE *,13, 
1° AT ACTIOW’,13,° OF BOLB’,T3/11X,"° REASOW: AISSING °, 
2 “INGREDIENT CORRESPONDING TO DATA WOUNBER ¢,13/ 
3 11X,° STARTED ZXECUTION OF TABLE *,13) 
60 TO 10 
c 
ce DIRECT EXECUTION . 
c 
JT WRITE (6,107) T,I,3,TABNO 
107 PORMAT (1HO,10X,*SUSPEMDED EXECUTION OF TABLE °,13, 
1 * AT ACTION',I3,° OF RULE*,I3/112," STARTED EXECUTION’, 
2 * OP TABLE °,13,° FOR BIEECt EXECUTION’) 
10 fT = TABNO 
c IF TABLE T DOES NOT EXIST oe TERSIBATE BrECULION = 


+ 
a 


cD WRITE (7,110) L(T) 


CD110 PORMAT(1X,°L(T)=° ,14) 


ieee 


t 
I 
J 
IR 


PRINT THE APPROPRIATE 
GO TO (4,5,6,7) ,LPLAG 


CHECK IP A TRACE OF THE STACKING IWFORMATIOW IS DESIRED OR NOT 
Ip (TRACE .WE. YES) GO TO 10 


HESS AGE 


IP (L(T).EQ.0) GO TO 9999 


TABNO = 0 
RETURN 

9999 WRITE(7,109) fT 
WRITE (6,109) fF 


109 PORMAT(1X,°TABLE BUABER® , 2X, slated SOT BxIst,', 


*° EXECUTION TERSIBATED. °) 


STOP 
BaD 
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SUBROUTINE INPUT (ICYCLE) 

THIS SUBROUTINE IS USED FOR RBADING THE DATA VALUES AWD FOR 
CLEARING THE DEPENDENT DATA POR SECOND OR SUDSEQUEBT CYCLES 
IMPLICIT LOGICAL®1 (P), INTEGER*2 (I-N) 

INTEGER*2 STACK, ENTRY,T,TABNO, TABD, TABOK ,pTPIRS®, THPSET 
COMMON /BICA/DATA, PRD 

COMMON/ANSTOP/LARBY 1, LARRY 2,LARRY3,LARRYS ,LARBYS,LABRY6,IBASB, 
1 IPNTRC,IPNTRA,TABD,L,M,M,T,TPIRST 

COMMON /MNSTIN/ISET, HEXSET ,HARCA, TRACE, THENAP 

COMMON /STUPIN/ ICLEAR, IARROW 

CONHOW/STINTL/IN DEX, ENTRY, INGR,EDEPED, THPSET 
COMHON/DOOP/IPDL 
CONMON/DUAB/MARAY 

DIMENSION 

3 DATA (700) ,PRD (700) , TABD (700) , rere tool 
4 ITARROW(700) ,ICLEAR(2000) , 

5 IPDL (20,2) 

DIMENSIOW HEXSET (150) , MARCA (100) 


IP WOT THE PIRST CYCLE,CHECK IP THERE ABE 
ANY DATA INPOT FOR THIS CYCLE 


IF (ICYCLE.£Q.1) GO TO 9 
WRITE (7,208) | 

PORNAT(1H1,10X,"PLEASE INPUT A VALUE OP 1 OR 2 FOR IMDIC‘) 
WRITE (7,210) 

PORMAT(10X,°1 IWDICATES THERE ARE FURTHER CYCLES") 

WRITE (7,212) 

PORNAT(10X,'2 INDICATES WO FURTHER CYCLES*) 

READ (4,200) IWDIC 

FORMAT (14) 


IF INDIC#=1, READ IN DATA ITENS POR THIS CYCLE 
PROM THE TERMINAL 
IP INDIC@=2, NO DATA ITEMS FOR THIS CYCLE, EXECUTION COMPLETED 
IP (IWDIC.£Q.1) GO TO 201 
If (IWDIC.2Q.2) GO TO 9999 
WRITE (6,170) ICYCLE 
WRITE (7,203) 
PORMAT(10X,° AWAITING NEXT DATA ITBH') 
READ (4,208) KGLOB,DATAK 
PORMAT (I5,F 10.0) 


SIGHAL LAST DATA INPUT BY A ZERO INPUT 


IP (KGLOB.2Q.0) GO TO 110 
GO TO 207 
READ THE WUSERICAL DATA FOR ALL THE TABLES 


HEADING FOR THE WENT PRINTED Tres 


WRITE (6,170) ICYCLE 
PORMAT (1H1,15X,°THE FOLLOWING WOHERICAL DATA HAS BEE SUPPLIED ', 
1 ‘POR CYCLE NUNBER® ,13//31X,*KGLOB*, 10%, *DATAK*//) 
READ (5,103,END29999) KGLOB,DATAK 
FORMAT (15,5X,P10.0) 
SIGNAL LAST CARD IW THIS DATA BY A BLAWK CARD 
IF (KGLOB .£Q. 0) GO TO 15 


IP THE DATA BELONGS TO A SET, FIX THE VALUE OF ITS 
ELESENTS PIRST 


IF (ISET(KGLOB) «WE. 0) CALL SETS (KGLOB) 
DATA (KGLOB) = DATAK 

PRD(KGLOB) = .TROUE. 

WRITE (6,171) KGLOB,DATAK 

PORMAT (25X%,110,5X,F 10.4) 


IF THIS IS THE FIRST CYCLE THE GO TO READ THE NEXT CARD; 
OTHERWISE CLEAR THE EFPECT OF CHANGING THIS DATA PIRST 


IP (ICYCLE .£Q. 1) GO TO 1 


cD 10 


Ww 


cD 
C2004 
cD 


aaaaa 


108 
110 
9999 
2010 


2012 


POR THE PURPOSE OF CLEARING THB BRPPECTS OF READING BEW DATA, THE 
LIST OF DEPENDENTS IS STORED @ITH THE FIRST BLEGEVT OF THES SET 


WSET = ISET (KGLOB) 

WRITE (6,8) KGLOB, NSET 

PORMAT (1X,°KGLOB=" ,14, 8X, ° WSET=* ,14) 
IF (NSET .EQ. 0) GO TO 11 

RGLOB = MARCA(WSET) + 1 

WRITE (6,10) KGLOB 

PORHAT (1X, ° KGLOB®*###=° , Th) 


PIRST FIND OUT IP THIS DATA HAS ANY DEPENDENT DATA.IP WO THEW READ 
THE NEXT DATA; IF YES THEW CLEAR If 


IF ((IARBOW(KGLOB+1) - IARROW(KGLOB)) .BQ. 0) GO TO 202 
STABT CLEARING © : 


Iz = 0 

LG = 1 . 

I1 = IARROW(KGLOB) ¢ L 
KDEP = ICLEAR (I1) 

IP (.WOT.PRD(KDEP)) GO TO 21 
PRO(KDEP) = .PALSE. 
WRITE (6, 2000) KDEP 
VORHAT (1%, °KDEP=* , 2%) 


CHECK IP DATA ITEM KDEP HAS ANY DEPEWDEWT CONPOUENTS. IF YES THED 
SUSPEND CLEABING DEPENDENTS OF KGLOB BY STACKING PROCEDURE AND 
START CLEARING DEPENDEWTS OF KDEP; OTHERWISE CONTINUE CLEARING 
DEPENDENTS OF KGLOB 


IF ( (ARROW (KDEP+1) = IARROW(KDEP)) .£0. 0) GO fo 21 
IZ=21z¢1 

IPDL(1Z,1) = KGLOB 

IPDL(IZ,2) = LG 

WRITE(6, 2001) KGLOB,LG 

PORMAT (1X, °KGLOB=" ,14,5X, *LG=*, 13) 

KGLOB = KDEP 

GO TO 12 

LG = LG ¢ 1 

WRITE (6,2002) LG 

PORMAT(1X,"LG IM LOOP 21=',13) 

IF (LG .LE. (IARROW(KGLOB¢1) = IABROW(KGLOB))) GO TO 13 


ALL THE DEPENDENT DATA FOR THIS KGLOB HAYB BEEN CLEARED ABD SO 
UNSTACKING CAW BE STARTED Z 

WRITE (6, 2003) 12 

PORMAT(1X,"ILZ BEFORE STATEMZUT 202',13) 

IF (IZ .EQ. 0) GO TO 202 

KGLOB = IPDL (IZ, 1) 

LG = IPDL (IZ, 2) 

IZ #IZ- 1 

WRITE (6,2004) KGLOB,LG,I2 

PORMAT(1X,°VALUES AFTER STATEMENT 20,KGLOB=",1&, 


13X,°LG=",13,3X,°IZ=* ,13) 


GO TO 21 
READ IF A TRACE OF THE TABLES EXECUTED IS DESIRED OR BOT 


READ (5,105) TRACE 

PORNAT . (T11,A4) 

READ IP WRITING OUT OF THE FOLLOWING ARRAYS IS DESIRED: 
LARRY 1,LARRY3,LARRY2,LARRY4,LARBYS ,LABRY6 
IBASE,IPNTRC,IPHTRA, ARROW, ICLEAR, HBXSET, 

HARCA,ISET,L 


READ(S,108) GARAY 

PORMAT (T11,A4) 

RETURN 

WRITE (6, 2010) 

PORHAT(1Z,"BXECUTION OF PROGRAA IS, COMPLETED‘) 


WRITE (7, 2012) 
FORMAT (1X,"BXECUTION OF PROGRAM IS COMPLETED. '/ 


$1X,°COLLECT YOUR OUTPUT FROA THE COMPUTING CENTER.CONE BACK SOOB') 


STOP 
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SUBROUTINE SETS (KGLOB) 


THIS SUBROUTINE IS USED TO EVALUATE THE DATA IW BUTUALLY 
EICLUSIVE SETS AT THE TINE OP EXTERWAL IBPUT 


DECLARATIONS 


IMPLICIT LOGICAL®1 (P), IWTEGER*2 (I-8) 

INTEGER®2 STACK, EBVTRY,T,TABUO,TABD, TABDK, FFIRST, THPSET 
COMMON /ALCA/DATA,PRD 

COMMON /ANSTIN/ISET, HEXSET, MARCA 

DIMENSION DATA (700) ,PRD (700) ,ISET (700) 

DIMENSION MEXSET (150) , HARCA(100) 


CHECK IP KGLOB BELONGS TO A SET. IF YES THER 
PIX THE VALUES OF ALL THE ELEAENTS OF THB SET TO HO 


WSET = ISET (KGLOB) : 
IP (NSET .£Q. 0) GO To 99 
I1 = MARCA(NSET) @ 1 

I2 = WARCA(NSET ¢ 1) 

Do 10 I = 11,42 

IGLOB = MEXSET (I) 

DATA (IGLOB) = 0.0 
PRD(IGLOB) © .TRUE. 
CONTINUE 

DATA (KGLOB) =1.0 
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THIS SUBROUTINE IS FOR READING IW HISSING 

DATA ITEHS FROM THE TERHIWAL. THIS EWABLES 

THE PROGRAN TO BE ROW UNDER INTERACTIVE HODES. 
A LARGE BOMBER OF ABORTIVE ROWS DUB TO HISSING 
DATA ITEMS CAM THEREFORE BE ELIMINATED. 


SUBROUTINE BEADIN (KG, NUMBER, KK) 

IAPLICIT LOGICAL#1 (PB), INTEGER*2 (I=) 
COMMON/MICA/DATA, PRD 
COHHOW/NNSTIN/ISET AEXSET, MARCA, TRACE, THEMAP 
CONMON/STUPIN/ICLEAR, ZT ARROW 

COMHMON/DOOP/IPDL 

COMHON/AINCB/ICYCLE 

DIMEBSIOW DATA (700) ,PRD(700) ,XSET (700) ,HEXSET (150) , 
*HARCA (100) , ICLEAR (2000) , ARROW (700) , IPDL (20,2) 


KLOSS=KK 
GO TO (10,20,30) , NUMBER 


GRITING ON TERAINAL TO LET USER KHOW THAT 
IT IS AWAITING IWPOT. 


WRITE (7,100) KG 


PORBAT (1X,°****¢AWAITING INPUT FOR DATA ITE WITH SUBSCRIPTS’, 16/ 


*1X,"THIS DATA ITEH IS A CONDITION.") 
GO TO 500 


WRITE(7, 120) KG 

PORMAT (1X, "****AWAITING INPUT POR DATA ITER WITH SUBSCRIPT#=',16/ 
*1X,°THIS DATA ITEM IS A MISSING INGREDIENT OF A CONDITION‘) 

GO TO 500 


WRITE (7,140) KG 

PORMAT (1X,°¢*S*¢AGAITING ITWPUT FOR DATA ITER WITH SUBSCRIPT=",18&/ 
S1X,"THIS DATA ITEM IS A MISSING INGREDIEWT OF AW ACTION") 

GO TO 500 


READ IW AISSING DATA SUBSCRIPT AWD YTS VALUE. 


READ(%,520) KG,DATA(KG) 
PORMAT (Z10,P 10.4) 


Iv WISH TO TERHINATZ EXECUTION, INPUT A WEGETIVE VALUE oF KG 
IP (KG.LT.0) GO TO 9999 : i 
CHECK IP THE CORRECT DATA SUBSCRIPT HAS BEEE INPUT 


IP (KG.NE.KK) GO TO 600 
SET PRESENCE OP INPUT DATA TO .TRUE. 


PRD (KG) =. TRUE. 

IP INPUT DATA ITE BELONGS TO A BUTUALLY EXCLUSIVE SET, 
AND IP THE DATA=1.0 . SET THE OTHER DATA ITEHS 

OF THAT SET TO 0.0 AND THEIR PRESEWCE TO .TRUE. 

IF (DATA (KG) .£Q.0.0) GO TO 540 

IP(ISET (KG) .WE.0) CALL SETS (KG) 


540 IF(ICYCLE.£Q.1) GO TO 600 


WHEN A MISSING DATA ITEH IS READ IW IW 

THIS BOUTINE,ANY DEPENDENTS THAT THIS DATA 

ITEM HAS IS TO BE CLEARED I CYCLES OTHER 

THAW CYCLE 1. 

POR THE PURPOSE OP CLEARING THE BPFECTS OF READING KEW DATA, THE 
LIST OF DEPENDENTS IS STORED WITH. THB PIRST RLEREWT OF THE SET 


WSET = ISET(KLOSS) 
WRITE (6,620) KLOSS,WSET 


620 PORHAT(1X,°KLOSS=",14, 6X, *SSBT=", 14) 


IF (WSET .2£0. 0) GO TO 590 
KLOSS = MARCA(NSET) ¢ 1 
WRITE (6,690) KLOSS 


660 FORMAT (1Z,°KLOSS#*#¢=! ,18) 


890123456 7890123456 7890123856 789012 
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c 
9999 
560 


PLRST FIKD OUT IF THIS DATA HAS AVY DBPESDENT DATA.IF WO THEW BRAD 
THE WEXT DATA; IF YES THEW CLEAR If 


IF ((ZABROW(KLOSS¢1) ~ IARROW(KLOSS)) .BQ. 0) GO TO 600 
START. CLEARING 


Iz = 0 
LG = 1 

I1 = IARROW(KLOSS) + LG 

KDEP = ICLEZAR(I1) 

IF (.NOT.PRD(KDEP)) GO TO 740 
PRD(KDEP) = FALSE. 

WRITE (6,700 ) KDEP 

POBHAT (1X,°KDEP2? , 14) 


CHECK IP DATA ITEH KDEP HAS AWY DEPEWDENT COHPORENTS. IF YES THEW 
SUSPEUD CLEBRING DEPEWDENTS OF KLOSS BY STACKING PROCEDURE AUD 
START CLEARING DEPEWDEBTS OF KDEP; OTHERWISE COBTINUS CLEARI BG 
DEPESDESTS OF KLOSS 


IF ((IARROW(KDEP+1) - IARROW(KDEP)) .BQ. 0) GO fo 780 
12 = 1% 1 

IPDL(1Z,1) = KLOSS | 

IPDL(IZ,2) © LG 

WRITE(6,720) KLOSS,LG 

FORMAT (1X,°KLOSS=* ,14,5%,°LG=",13) 

KLOSS = KDEP 

GO TO 660 

LG = LG ¢ 1 

WRITE (6,760) LG 

PORHAT(1X,°LG IM LOOP 740=',13) 

IF (LG .LE. (IARROW(RLOSS*1) - TARROW(KLOSS))) GO TO 680 


ALL THE DEPENDEWT DATA FOR THIS KLOSS HAVE BEEW CLEARED auD so 

UNSTACKING CAW BE STARTED 

WRITE(6,780) 12 

PORMAT(1X,°IZ BEPORE STATEMENT 800="; 13) 

IP (IZ .EQ. 0) GO TO 600 

KLOSS = IPDL (12, 1) 

LG = IPDL(IZ, 2) 

IZ z1Z- 1 

WRITE (6,820) KLOSS,LG,IZ 

FORMAT (1X, "VALUES AFTER STATEMENT 800, KLOSS=° , 16, 
) 


13X,"LG=*,13,3X,°IZ=! ,I 


GO TO 740 
RETORN 


WRITE (7,560) 
PORMAT (1X,"PROGRAH EXECUTION TERATEATED BY Au INPUT OP HEGETIVE’, 


#¢ VALUE OF KG’) 


WRITE (6, 560) 
STOP 
BUD 
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SUBROUTINE OUTPUT (ICYCLE) 


ce THROUGH THIS SUBROUTINE, If IS POSSIBLE TO OUTPUT ABY DATA 
ce VALUE POR CHECKING AND DIOGHASIS 


cc DECLARATIONS 


IMPLICIT LOGICAL*®1 (P), INTEGER#2 (I-#) 
INTEGER*2 STACK, ENTRY, T,TABNO, TABD, TABDK ,TPIRST, THPSET 
COMMON /HICA/DATA, PRD 
DIMEWSION DATA(700) ,PRD(700) 
WRITE (6,100) ICYCLE 

100 FORMAT (1H1,15X,"DATA VALUZS AT THE BUD OF CYCLE HO.',13/ 
1 16X,"ONLY THAT DATA WHICH HAS A VALUE IS REPRODUCED. HERE® 
2//31X,"RGLOB®, 10X,"DATAK*, 10%, ¢PRD' //) 
DO 801 KGLOB = 1,700 
IP (.NOT. PRD(KGLOB)) GO TO 801 
WRITE (6,800) KGLOB, DATA (KGLOB) , PRD (KGLOB) 

800 PORHAT (25%,110, 1%,P19.8, 52,17) 

601 CONTINUE 

BETORS 
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THIS IS THE SUBROUTINE FOR PRINTING AND CLEARING 
DATAS IF A TABLE HAS TO BE EXECUTED HORE THAN 

ONCE IN A PARTICULAR RUN. 

THE DATAS WHICH ARE TO BE PRINTED AND CLEARED ARE 
SPECIFIED BY THE DATA STATEMENT IW THE ACTION 
SUBROUTINE OF THAT TABLE. 

THE WUSBER OF TIBES THAT THE TABLE IS TO BE BXECUTED 
IS SPECIFIED BY WCHECK . 


SUBROUTINE CLEAR (HCLEAR) 
INPLICIT LOGICAL*1(P), IWTEGER*2 (I-H) 
COMMON/MICA/DATA, PRD 
COMHON/HNSTIN/ISET, HEXSET, HARCA, TRACE, THEAAP 
COKBON/STUPIN/ICLEAR, IARROW 
COMHON/DOOP/IPDL 
DIAENSION 
*DATA (700) , PRD (700) ,ISET (700) ,AEXSET (150) ,HARCA (100), 
SICLEAR (2000) ,LARROW (700) , I PDL (20, 2) , HCLEAR (15) 


WRITE THE VALUE OF (DATA (501) ,CHECKI) 


WRITB (6,100) DATA(501) 
WRITE (7,100) DATA(501) 
FORMAT (1H1,°*#8¢¢@ CHECKI=°, 2X, PU. 1, 2X, (Oseesser///) 


PRINT OUT THE DATAS THAT HAVE TO BE CLEARED BEFORE 
RENTERING THE TABLE. 


WRITE (6, 102) 

WRITE (7,102) 

FORMAT (3 1X," KGLOB® , 10X,"DATA (KGLOB) ', 102, ° BBD (KGLOB) °///) 
po 5 3=1,15 

KGLOB=NCLEAR (3) 

IF (KGLOB.EQ.0) GO TO 106 

WRITE (6,104) KGLOB,DATA(KGLOB) , PRD (KGLOB) 

WRITE (7,104) KGLOB,DATA(KGLOB) , PRD (KGLOB) 

PORHAT (25K, 1 10,5X,P14.4, 10X,L7) 

CONTI RUE 


I=0 

IsI¢1 

KGLOB=ACLEAR (I) 

IF KGLOB IS 0 , ALL OF THE DATA HAVE. BEEN CLEARED 
IP (KGLOB.£Q.0) GO fO 30 
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SET KGLOB TO ZERO AWD .PALSE. 


DATA (KGLOB) =0.0 
PRD (KGLOB) ®. PALSE. 


POR THE PURPOSE OF CLEARING THE DATA, THE LIST OF 
DEPENDENTS IS STORED WITH THE PIRST ELEMENT OF THE SET. 


USET=LSET (KGLOB) 
IP(NSET.EQ.0) GO TO 11° 
KGLOB=HARCA (NSET) +1 


PIND OUT IF TAIS DATA HAS ABY DEPESDENT DATA. IF #0 ° 
READ THE WEXT DATA. IF YES, THEW CLBAR IT. 


IP ((IARROW (KGLOB¢ 1) -IARROW (KGLOB) ) .BQ.0) GO TO 10 
START CLEARING 


IZ#0 

LG=1 

I1=I ARROW (KGLOB) +LG 
KDEP=ICLEAR (11) 

IP (.NOT.PRD(KDEP)) GO TO 21 
PRD (KDEP) =. PALSB. 


CHECK IF DATA ITEM KDEP HAS AWY DEPENDENT CONPOBENTS. 

IP YES THEN SUSPEND CLEARING DEPENDBHTS OP KGLOB BY . 
STACKING PROCEDURE AND START CLEARING DEPEWDENTS OP KDEP; 
OTHERBISE CONTINUE CLEARING DEPENDENTS OF KGLOB. 


IP ( (TARROW (KDEP+ 1) -TARROW (KDEP) ) .£Q-0) GO TO 21 
IZ=IZ+1 ; 

IPDL (12, 1) =KGLOB 

IPDL (12, 2) =LG 

KGLOB=KDEP 

GO TO 12 

LG=LG¢1 

IP (LG. LE. (LARROW (KGLOB¢ 1) - TARROW (KGLOB) ) ) 60 TO 13 


ALL THE DEPESDZUT DATA FOR THIS KGLOB HAVE BEEN CLEARED, 
SO UNSTACKING CAW BE STARTED. ; 


IF (I2.£Q.0) GO TO 10 
KGLOB#=IPDL (12, 1) 
LG=IPDL (IZ, 2) 
IzeIZ-1 

GO TO 21 

BETOURS 
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APPENDIX E 


BATCH MODE PROCESSING PROGRAM 
- SOURCE LISTING 


This appendix contains a source listing of the 


program for batch mode processing of design specifi- 


cations. 
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